Advertisement
Guest User

Untitled

a guest
Feb 11th, 2016
60
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.75 KB | None | 0 0
  1. procedure ReportExport(aReport: TQuickRep; const aFileName: TFileName);
  2. var Pdf: TPdfDocument;
  3. aMeta: TMetaFile;
  4. i: integer;
  5. begin
  6. Pdf := TPdfDocument.Create;
  7. try
  8. aReport.Prepare;
  9. for i := 1 to aReport.QRPrinter.PageCount do begin
  10. aMeta := aReport.QRPrinter.GetPage(i);
  11. try
  12. Pdf.DefaultPageWidth := MulDiv(aMeta.Width,72,Pdf.ScreenLogPixels);
  13. Pdf.DefaultPageHeight := MulDiv(aMeta.Height,72,Pdf.ScreenLogPixels);
  14. Pdf.AddPage;
  15. // desenha a pagina
  16. Pdf.Canvas.RenderMetaFile(aMeta,1,0,0);
  17. finally
  18. aMeta.Free;
  19. end;
  20. end;
  21. Pdf.SaveToFile(aFileName);
  22. finally
  23. Pdf.free;
  24. end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement