Microsoft Office Forums - View Single Post - [Solved] change printer settings

trevorc · 07-20-2020, 05:10 PM

Thanks for the update, but it reports 9 for any of the printers i have selected, all using different paper sizes.
Just going with this for now.

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", "Part Labels"
            Application.ActivePrinter = "ZDesigner GK420t on 9100"
        Case Is = "Repair Labels"
            Application.ActivePrinter = "\\U2-front-desk\bixolon slp-d420 on Ne05:"
        Case Else
            Application.ActivePrinter = "Brother DCP-7065DN Printer on Ne04:"
    End Select
    ActiveSheet.Range("D22") = Application.ActivePrinter
    Application.Dialogs(xlDialogPrint).Show
    Application.EnableEvents = True
    Application.ActivePrinter = "Brother DCP-7065DN Printer on Ne04:"
End Sub