Attribute VB_Name = "Module2"
Option Explicit

Sub Auto_Open()
    'Modify the line below with the name of your printer
    'then uncomment both lines
    
    'Application.ActivePrinter = "Brother HL-5370DW series Printer on Ne04:"
    'MsgBox Application.ActivePrinter
End Sub