Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- procedure ReportExport(aReport: TQuickRep; const aFileName: TFileName);
- var Pdf: TPdfDocument;
- aMeta: TMetaFile;
- i: integer;
- begin
- Pdf := TPdfDocument.Create;
- try
- aReport.Prepare;
- for i := 1 to aReport.QRPrinter.PageCount do begin
- aMeta := aReport.QRPrinter.GetPage(i);
- try
- Pdf.DefaultPageWidth := MulDiv(aMeta.Width,72,Pdf.ScreenLogPixels);
- Pdf.DefaultPageHeight := MulDiv(aMeta.Height,72,Pdf.ScreenLogPixels);
- Pdf.AddPage;
- // desenha a pagina
- Pdf.Canvas.RenderMetaFile(aMeta,1,0,0);
- finally
- aMeta.Free;
- end;
- end;
- Pdf.SaveToFile(aFileName);
- finally
- Pdf.free;
- end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement