16,749
社区成员
发帖
与我相关
我的任务
分享
try
print_handle:=loadlibrary('dll\typrint.dll');
if print_handle<>0 then begin
@print_ty:=GetProcAddress(print_handle,'print_ty')
print_ty(trim(edit3.text),dm,lb,trim(edit2.text),bz);
end;
finally
freelibrary(print_handle);
end;
try
frm1.frReport1.PrepareReport;
frm1.frReport1.ShowPreparedReport;
//frm1.frReport1.PrintPreparedReportDlg;///--这句打印的 只要加上就会报错
finally
frm1.frReport1.free;
end;