Print 2 copies from non default printer

[all7holly]

The code below is still only printing 1 copy to the default printer. Any ideas?
DoCmd.OpenReport "rptworkauth", acViewDesign, Null, Null, acHidden

Dim oRpt As Report
Set oRpt = Reports(0)
oRpt.Printer = Application.Printers("Savin C3333 PCL Color")

With oRpt.Printer
.Copies = 2
.PrintQuality = acPRPQMedium
End With

DoCmd.Close acReport, "rptworkauth", acSaveYes
DoCmd.OpenReport "rptworkauth", acViewNormal

Set oRpt = Nothing