Version: wPDF2.75
Report Tool: QuickReport 3.5
Problem: Text created by eudcedit.exe will be disappear when exporting from *.QRP to *.PDF
OS version: Win7 ,Vista, XP traditional chinese version
Code
procedure ConvertToPDF(pQuickRep: TCustomQuickRep; const sFileName: String);
var
aMeta: TMetaFile;
PageNum: Integer;
pQRPrinter: TQRPrinter;
begin
if(pQuickRep = nil) or (pQuickRep.QRPrinter = nil) then
Exit;
pQRPrinter := pQuickRep.QRPrinter;
WPPDFPrinter1.FileName := sFileName;
try
WPDF_Start);
WPPDFPrinter1.CanvasReference := wprefScreen;
WPPDFPrinter1.BeginDoc;
for PageNum := 1 to pQRPrinter.PageCount do
begin
WPPDFPrinter1.StartPage(pQRPrinter.PaperWidthValue,
pQRPrinter.PaperLengthValue,254,254, 0);
aMeta := pQRPrinter.GetPage(PageNum);
try
WPPDFPrinter1.DrawMetafileEx(0,0,0,0,aMeta.Handle,
Screen.PixelsPerInch, Screen.PixelsPerInch );
finally
aMeta.Free;
WPPDFPrinter1.EndPage;
end;
end;
WPPDFPrinter1.EndDoc;
finally
end;
Alles anzeigen