From 9221bdd90af9827f583fe7945303bf171d83b120 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=E2=80=9Cddf=E2=80=9D?= <“ddf668490@163.com”> Date: Tue, 15 Oct 2024 12:09:12 +0800 Subject: [PATCH] =?UTF-8?q?pdf=E6=89=93=E5=8D=B0?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- public10/ThreeFun/Fun/U_printPdf.pas | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/public10/ThreeFun/Fun/U_printPdf.pas b/public10/ThreeFun/Fun/U_printPdf.pas index 7fce004..4a4ba89 100644 --- a/public10/ThreeFun/Fun/U_printPdf.pas +++ b/public10/ThreeFun/Fun/U_printPdf.pas @@ -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.