print page

rbuser

hi....

how can i print 5 copies of page 1 and 3 copies of page 2
in report builder???

thanks in advance

nardmoseley

In the Report.StartPage event, try implementing some code like this....

procedure TForm1.ppReport1StartPage(Sender: TObject);
var
liCopies: Integer;
begin
if ppReport1.AbsolutePageNo = 1 then
liCopies := 5
else if ppReport1.AbsolutePageNo = 2 then
liCopies := 3
else
liCopies := 1;

ppReport1.Engine.Page.PrinterSetup.Collation := False;
ppReport1.Engine.Page.PrinterSetup.DelegateCopies := True;
ppReport1.Engine.Page.PrinterSetup.Copies := liCopies;


end;


--
Nard Moseley
Digital Metaphors Corporation
www.digital-metaphors.com