loop for multiple copies - undesired results

J

jonefer

Lets say I have 2 records - A and B

I want to print
3 copies of A
3 copies of B


The following code does not produce the results I'm expecting:
(Is there another way?)

==============================================
Public Function PrintMultipleCopies(strReportName As String,
bytNumberOfCopies As Byte)
Dim bytCounter As Byte
For bytCounter = 1 To bytNumberOfCopies
DoCmd.OpenReport strReportName
Next bytCounter
End Function
===========================================

what this produces is:

1st copy of A
1st copy of B
2nd copy of A
2nd copy of B
3rd copy of A
3rd copy of B
 
Top