Mega Code Archive

 

Categories / VisualBasic Script / Windows API

 

Loop through all printer

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