Dynamics NAV 2013 - How to get a report to print multiple copies of itself on the first print

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

CopyLoop - OnAfterGetRecord()
IF Number > 1 THEN BEGIN
  CopyText := Text000;
  OutputNo += 1;
END;
CurrReport.PAGENO := 1;


Group on the [Output] field