Home Devices
New Blog Posts: Merging Reports - Part 1 and Part 2

ReportBuilder 15 - PrintToDevices only Prints first Page of each Report

edited June 2013 in Devices
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

Comments

This discussion has been closed.