Sub TestPrinter() Dim prtAvailPrinters As Printer For Each prtAvailPrinters In Application.Printers With prtAvailPrinters Debug.Print "Printer name: " & .DeviceName & "Printer driver: " & .DriverName End With Next prtAvailPrinters End Sub