27 lines
1.1 KiB
ObjectPascal
27 lines
1.1 KiB
ObjectPascal
unit U_printPdf;
|
|
interface
|
|
uses
|
|
Windows,forms;
|
|
// formId =1 功能id
|
|
//mRecid='文件表记录号'
|
|
//printNumber=1 打印份数
|
|
//printFlag=1 '打印预览;0立即打印
|
|
//DataBaseStr
|
|
function printPdf(App:Tapplication; FormID:integer;Title:PChar; GCode: PChar; GName: PChar;mRecid:PChar;printNumber:Integer;printFlag:Integer;printer:integer;DataBaseStr:PChar):hwnd;stdcall;external 'pdfPrint.dll' Name 'GetDllForm' ;
|
|
// formId =1 功能id
|
|
//mRecid='文件表记录号'
|
|
//printNumber=1 打印份数
|
|
//printFlag=1 '打印预览;0立即打印
|
|
//DataBaseStr
|
|
function printReport(App:Tapplication; FormID:integer;Title:PChar; GCode: PChar; GName: PChar;mRecid:PChar;printNumber:Integer;printFlag:Integer;printer:integer;DataBaseStr:PChar):hwnd;stdcall;external 'pdfPrint.dll' Name 'GetDllForm' ;
|
|
// formId =1 功能id
|
|
//mRecid='文件表记录号'
|
|
//exportFileType=1 导出文件类型 pdf ,bmp ,jpg
|
|
//DataBaseStr
|
|
//返回结果，保存文件的记录号 主键
|
|
function exportFile(App:Tapplication; FormID:integer;Title:PChar; GCode: PChar; GName: PChar;mRecid:PChar;exportFileType:PChar;DataBaseStr:PChar):hwnd;stdcall;external 'pdfPrint.dll' Name 'ExportFile' ;
|
|
|
|
implementation
|
|
|
|
end.
|