Windows API VisualBasic Script

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