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.