rtgit/RTFormwork
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

pdf打印

Browse Source
This commit is contained in:
“ddf” 2024-10-15 12:09:12 +08:00
parent 821eecf691
commit 9221bdd90a
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
public10/ThreeFun/Fun/U_printPdf.pas
View File

@ -8,6 +8,19 @@ uses
//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.