Just an update on this, I have given up on trying to set the copies count, but have found another issue.
I added code to remove the QR code after printing, but running this code removes the QR code before print preview, even though the code is after the Print preview and print modal dialog. How is this possible???
See extra lines of code below
Code:
Sub AAA()
Application.EnableEvents = False
Select Case ActiveSheet.Name
Case Is = "Mac Label"
Application.ActivePrinter = "\\U2-front-desk\bixolon slp-d420 on Ne05:"
Case Is = "Address Label"
Application.ActivePrinter = "ZDesigner GK420t on 9100"
Case Is = "Part Labels"
Application.ActivePrinter = "ZDesigner GK420t on 9100"
Case Is = "Repair Labels"
Application.ActivePrinter = "\\U2-front-desk\bixolon slp-d420 on Ne05:"
Case Is = "RMA Labels"
Application.ActivePrinter = "\\U2-front-desk\TSC TTP-346M Pro on Ne06:"
Case Else
Application.ActivePrinter = "Brother DCP-7065DN Printer on Ne04:"
End Select
t = Application.Dialogs(xlDialogPrint).Application
Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
Application.EnableEvents = True
ActiveSheet.Shapes.Range(Array("BC$E$9#GR")).Select
Selection.Delete
End Sub