mORMot Open Source

function TfrmMain.ExportPdf(aReport: TQuickRep; aFileName: String): Boolean;
var
  I: Integer;
  PdfDocument: TPdfDocumentGDI;
  Page: TMetafile;
begin
  Result := False;

  PdfDocument := TPdfDocumentGDI.Create();
  PdfDocument.UseUniscribe := True;

  try
    aReport.Prepare;

    for I := 1 to aReport.QRPrinter.PageCount
    do begin
      PdfDocument.AddPage;

      Page := aReport.QRPrinter.GetPage(I);

      try
        PdfDocument.Canvas.RenderMetaFile(Page);
      finally
        Page.Free;
      end;
    end;

    Result := PdfDocument.SaveToFile(aFileName);
  finally
    PdfDocument.Free;
  end;

end;