How to List all available Printers

1
2
3
4
5
6
7
8
9
'System & API - How to List all available Printers
Option Explicit
 
Private Sub Form_Load()
    Dim Prt As Printer
    For Each Prt In Printers
        Debug.Print Prt.DeviceName
    Next Prt
End Sub

Tags: , , , , , , , , , , , , ,

Leave a Reply