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