change printer settings

trevorc · #5 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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How do I lock printer paper size in Word docs saved to PDF?	bwofficer	Word	6	08-24-2017 12:30 AM
Can we NAME our own paper size that will show up on the printer?	FearlessStamper	Word	1	09-10-2016 03:23 PM
Exporting a Large Paper Size as a Single PDF Page	JamesEddy	Word	1	01-05-2016 11:23 AM
Custom page size settings	ibclare	Publisher	0	10-27-2014 08:34 PM
how change size font to inches size	kkepo	Word	4	08-28-2012 08:53 PM