How can i print many copies from the same page?

jorkf

Hi friends!

I have a report (FR3) with 4 pages, and i would like to print the page 1, for example, three times. How can i do this (programming inside the report in the Area Code, and not in Delphi IDE ) ?

Thanks!

-=Den=-

Hi!

You have 4 pages in the preview or in the designer?

jorkf

I have 4 pages in designer (tfrxReportPage), and i wanna print these 4 pages, but the page ONE i wanna print 3 times, for example.

Then will be print the sequence of pages: 1 1 1 2 3 4

Understand me??

Thanks for help!

-=Den=-

Try this code:

procedure Page1OnManualBuild(Sender: TfrxComponent);
var
i:integer;
DataSet: TfrxDataSet;
begin
DataSet := MasterData1.DataSet;
for i:=1 to 3 do {count of 1-st pages}
begin
DataSet.First;
while not DataSet.Eof do
begin
Engine.ShowBand(MasterData1);
DataSet.Next;
end;
if i<3 then Engine.NewPage;{if not last then create new}
end;
end;