The Printers Collection
Private Sub cmdPrintersCollection_Click() Dim prt As Printer For Each prt In Printers Debug.Print prt.DeviceName Debug.Print prt.Port Next prt End Sub