I'm not sure what's causing the problem, as I'm using this code pretty much as-is, but you could add the SelectObject as below:
Dim NumCopies as Integer
NumCopies = 3
DoCmd.OpenReport "ReportName", acViewPreview
DoCmd.SelectObject acReport,"ReportName"
DoCmd.PrintOut acPrintAll, , , ...