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