No Copies is not working

catiamatos1991

Hi everyone, I'm trying to create a shipment order but when I put 2 in my Number of Copies the report only prints one page.. and must have 3 pages understand?

So I have in Request Page


Expanded Type SubType SourceExpr Name Caption
0 Field NoOfCopies <Control1> N.º Cópias

And in my Code:

CopyLoop - OnPreDataItem()
NoOfLoops := 1 + ABS(NoOfCopies);
CopyText := '';
SETRANGE(Number,1,NoOfLoops);
OutputNo := 1;

CopyLoop - OnAfterGetRecord()
IF Number > 1 THEN BEGIN
CopyText := Text001;
OutputNo += 1;
END;
CurrReport.PAGENO := 1;
TotalQty := 0; // Item Tracking

CopyLoop - OnPostDataItem()


PageLoop - OnPreDataItem()
// Item Tracking:
IF ShowLotSN THEN BEGIN
TrackingSpecCount := 0;
OldRefNo := 0;
ShowGroup := FALSE;
END;

PageLoop - OnAfterGetRecord()

PageLoop - OnPostDataItem()

I cant figure what I need to do more.. Anyone can help?