collection representing all the available printers on the current system.
expression.Printers
expression Required. An expression that returns one of the objects in the Applies To list.
Example
The following example displays information about all the printers available on the current system.
Dim prtLoop As Printer
For Each prtLoop In Application.Printers
With prtLoop
MsgBox "Device name: " & .DeviceName & vbCr _
& "Driver name: " & .DriverName & vbCr _
& "Port: " & .Port
End With
Next prtLoop