non-identical report copies

[richard luft]

Hi; Wondering if anyone can solve this problem, which worked fine in Ac2 and Ac2k, but does not seem to function properly in Ac2003.

I’m using the following elements to print different captions in [lblCopy] in a report/ subreport of which I’m printing two copies.

Report ‘Declarations:
Dim Copies as integer

Report_on open;
Copies = 1

Report Detail section contains txtbox contol whose recordsource = [Page]&[Pages]

lblCopy is a control in detail section of report

PageHeader_OnPrint event;
Select Case
Case 1
[lblCopy].caption = Original
Case 2
[lblCopy].Caption = Copy
End Select
If Page = Pages Then Copies = Copies + 1

Function PrintReport()
DoCmd.OpenReport “Report Name”, acPreview
DoCmd.Printout , , , , 2,-1
End Function

The report consists of report data and a datasheet subreport, all present in the Detail Section of the report. There is a Pageheader, which contains only the abovementioned field, and there are no controls present in the PageFooter.

Anyone have any idea why this code works fine in Ac2, but not in Ac2003?
Any suggestions for correction are needed.
Richard