paper bins

rbuser

Hi

i want to print the first page to a different tray
i checked this and found this

procedure TFOrm1.ReportStartPage(Sender: TObject);
var
lsBinName: String;
begin
if ReportVarkens.AbsolutePageNo = 1 then
lsBinName := ' Tray 2'
else
lsBinName := ' Tray 3'

ReportVarkens.Engine.Page.PrinterSetup.BinName := lsBinName;

It works when there is no subreport. But now my reports only have subreports
because every page is different.
Everything is printed to the default tray. I tried also to do this in the
startpage event of the subreport but that does not work also.

Can you help me.

Met vriendelijke groet, With kind regards,


Frank Beerens

nicocizik

Hi Frank,

One option would be to keep the first page completely inside a section style
subreport and alter its PrinterSetup to print to a separate tray. Be sure
to set NewPrintJob to True and ParentPrinterSetup to False.

--
Regards,

Nico Cizik
Digital Metaphors
http://www.digital-metaphors.com

rbuser

Hi,

The startpage is triggered after the page.PrinterSetup is assigned.
If i recollect correctly Page 1 > Default tray, Page 2 > Tray 2 and the
other Pages > Tray 3
What you could try is assign Tray 2 before the report is printed and assign
Tray 3 in the startpage event
We changed the RB sources to get this working.

Greetings,
Filip Moons