Sub Test() Dim Prn As Printer Set Prn = Printers.Default MsgBox "Your default printer is: " & Prn.NameEnd Sub