Mega Code Archive

 

Categories / VisualBasic Script / Windows API

 

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