How to print several copies of report
There is no option to specify number of copies when you run DoCmd.OpenReport. But still there is a way to do so:
DoCmd.SelectObject acReport, "MyReport", True
DoCmd.PrintOut acPrintAll, , , , intCopies
Where intCopies specifies the number of copies. Using DoCmd.PrintOut you also get access to other options of Access Print Dialog – Print range, pages from-to, etc.