PDFCreater2虚拟打印机生成PDF到目的路径

打印前执行加载签名

  if frxpt.FindObject(‘DocQianMing’)<>nil then  //加载医生签名,在报告页面上合适的位置放置一个图片名称为DocQianMing
begin
//mainunit.Current_user
docqmpath:=ExtractFilePath(Application.ExeName)+’DocQianMing\’+mainunit.Current_user+’.jpg’;
if FileExists(docqmpath) then
(frxpt.FindObject(‘DocQianMing’) as TfrxPictureView).Picture.LoadFromFile(docqmpath);
end;

if frxpt.FindObject(‘DocQianMing’)<>nil then  //加载医生签名,在报告页面上合适的位置放置一个图片名称为DocQianMing
begin
//mainunit.Current_user
docqmpath:=ExtractFilePath(Application.ExeName)+’DocQianMing\’+mainform.DBComboBox1.Text+’.jpg’;
if FileExists(docqmpath) then
(frxpt.FindObject(‘DocQianMing’) as TfrxPictureView).Picture.LoadFromFile(docqmpath);
end;

程序中相关 配置文件

超声

 //虚拟打印机名称配置
v_pdfPrinter:=mySysParms.getElementTextAttribute(‘/config/vPrint’,’PrintName’,’PDFCrestor’)  ;

//内镜配置GWSET.INI

 v_pdfPrinter:=regini.ReadString(‘虚拟打印机’,’打印机名称’,’PDFCreator’) ;

//内镜真实的打印机配置

V_DefaultPrinter:=regini.ReadString(‘打印’,’默认的打印机’,’default’);//设置默认的打印机