ReportBuilder 15 - PrintToDevices only Prints first Page of each Report
Hi,
(Delphi 7, Reportbuilder 15)
in one of my projects i make use of manual created TppPrinterDevice-objects
to combine multiple Reports in one print job.
With RB 14.08 the following simplified code (derived from the Code at your
wiki-page
http://www.digital-metaphors.com:8080/index.php?title=Output/PDF/How_To...Merge_Multiple_Reports_into_one_PDF&highlight=PDF)
works perfectly, but with RB 15, only the first page of each report is printed.
var
lPDevice: TppPrinterDevice;
begin
lPDevice := tppPrinterDevice.Create(nil);
lPDevice.Printer.PrinterSetup.Assign(ppReport1.PrinterSetup);
lPDevice.EndPrintJob := False;
lPDevice.Publisher := ppReport1.Publisher;
ppReport1.PrintToDevices;
lPDevice.Reset;
lPDevice.Publisher := ppReport2.Publisher;
lPDevice.StartPrintJob := False;
lPDevice.EndPrintJob := True;
ppReport2.PrintToDevices;
lPDevice.Free
end;
Do you have any idea why this happens?
Regards
Stefan Kirchhoff
(Delphi 7, Reportbuilder 15)
in one of my projects i make use of manual created TppPrinterDevice-objects
to combine multiple Reports in one print job.
With RB 14.08 the following simplified code (derived from the Code at your
wiki-page
http://www.digital-metaphors.com:8080/index.php?title=Output/PDF/How_To...Merge_Multiple_Reports_into_one_PDF&highlight=PDF)
works perfectly, but with RB 15, only the first page of each report is printed.
var
lPDevice: TppPrinterDevice;
begin
lPDevice := tppPrinterDevice.Create(nil);
lPDevice.Printer.PrinterSetup.Assign(ppReport1.PrinterSetup);
lPDevice.EndPrintJob := False;
lPDevice.Publisher := ppReport1.Publisher;
ppReport1.PrintToDevices;
lPDevice.Reset;
lPDevice.Publisher := ppReport2.Publisher;
lPDevice.StartPrintJob := False;
lPDevice.EndPrintJob := True;
ppReport2.PrintToDevices;
lPDevice.Free
end;
Do you have any idea why this happens?
Regards
Stefan Kirchhoff
This discussion has been closed.
Comments
There is a patch available that solves this issue. Send an email to
support@digital-metaphors.com to receive the patch.
Nico Cizik
Digital Metaphors
http://www.digital-metaphors.com