print multiple copies of a report from a form

[stalw]

hi
i use a command button on a form to print a report:
the code for this as we all know is:
DoCmd.OpenReport "myreport", acNormal
How do i print multiple copies of this report
Currently i am writing the above line thrice to generate 3 copies,
Is there another way
thanks
s talwalkar

 

[ott]

intNumOfReports = 3

For i = 1 to intNumOfReports
DoCmd.OpenReport "myreport
Next i

Or you can use the PrintOut Method of the DoCmd Object:

DoCmd.PrintOut acPrintAll, , , , 3

 

[ott]

intNumOfReports = 3

For i = 1 to intNumOfReports
DoCmd.OpenReport "myreport
Next i

Or you can use the PrintOut Method of the DoCmd Object:

DoCmd.PrintOut acPrintAll, , , , 3

 

[ott]

intNumOfReports = 3

For i = 1 to intNumOfReports
DoCmd.OpenReport "myreport
Next i

Or you can use the PrintOut Method of the DoCmd Object:

DoCmd.PrintOut acPrintAll, , , , 3