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

Merge branch 'main' of http://47.100.72.85:3000/rtgit/RTFormwork

Browse Source
This commit is contained in:
sgwp 2024-10-17 16:52:27 +08:00
commit da95f3301d
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.