Multiple
Try this:
Use the Printout Method of the Docmd object.
DoCmd.PrintOut [printrange][, pagefrom, pageto] _
[, printquality][, copies][, collatecopies]
For example, if I want to print out two copies of the first page of a report, I would use
DoCmd.OpenReport "rptCustomers", acViewPreview
DoCmd.PrintOut acPages, 1, 1, , 2
The following method which does not require the report to be in Preview mode.
DoCmd.SelectObject acReport, "rptCustomers", True
'This prints out two copies of the report
DoCmd.PrintOut , , , , 2