Mehrere ReportBuilder-Berichte nacheinander in EINER PDF

adeptus

Hallo,
wie der Titel schon sagt, möchte ich mehrere Reportbuilder ausdrucke in EINER PDF-Datei über wPDF bringen.

Zur Zeit drucke ich einen Report so in die PDF-Datei:

Code

objPDFDevice := TppwPDFDevice.Create (Self);
          try


            with objPDFDevice do begin
              Filename := strPDFDateiname;
              PDFPrinter.FontMode := wpUseTrueTypeFonts;
              with PDFPrinter.Info do begin
                Author := fGetFullApplicationName;
                Title := strCaption;
              end;
              Publisher := repFormular.Publisher;
            end;


            PrintToDevices;


          finally


            objPDFDevice.Free;


          end;

Alles anzeigen

Wie kann ich es erreichen, dass mehrere ReportBuilder-Outputs in die gleiche PDF-Datei landen?

support

Hallo,

Mann muss dafür ppGlobalPDFPrinter initialisieren und
BeginDoc/EndDoc aufrufen

procedure TForm1.StartPDFFile(Sender: TObject);
begin
WPPDFPrinter1.FileName := 'c:\allout.pdf';
WPPDFPrinter1.AutoLaunch := TRUE;
WPPDFPrinter1.BeginDoc;
ppGlobalPDFPrinter := WPPDFPrinter1;
end;

procedure TForm1.ClosePDFFile(Sender: TObject);
begin
WPPDFPrinter1.EndDoc;
end;

Siehe auch diesen code aus dem manual:

How to create a PDF file without display of a file save dialog?

uses wppdfRBDev, WPPDFR1, WPPDFR2;
var pdf : TppwPDFDevice;
begin
pdf := TppwPDFDevice.Create(Self);
pdf.Filename := 'c:\rb.pdf';
pdf.PDFPrinter.FontMode := wpUseTrueTypeFonts;
pdf.Publisher := some_Report.Publisher;
Report.PrintToDevices;
pdf.Free;
end

Note: some_Report is an instance of a RB report object.

Man kann also ohne anzeige drucken.