Thread: [Solved] Still on this printer thing
View Single Post
 
Old 07-22-2020, 05:11 PM
trevorc trevorc is offline Windows 7 32bit Office 2013
Competent Performer
 
Join Date: Jan 2017
Posts: 174
trevorc will become famous soon enoughtrevorc will become famous soon enough
Default

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
Reply With Quote