Windows API VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Windows API
  4. The Printer Object
Private Sub cmdPrinterObject_Click()
    Dim prt As Printer
    Set prt = Printers(0)
    Debug.Print prt.DeviceName 
    Debug.Print prt.Port
    Debug.Print prt.ColorMode
    Debug.Print prt.Copies
End Sub