Windows API VisualBasic Script

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