use the PrintOut method
first open the report in preview mode
call the printout method
and then close it
DoCmd.OpenReport "My Report", acViewPreview, , , acWindowNormal
DoCmd.PrintOut acPrintAll, , , , NumberOfCopies
DoCmd.Close acReport, "My Report"
replace NumberOfCopies with some variable...