Application.Printer Property (Access)
Returns or sets a Printer object representing the default printer on the current system. Read/write.
Syntax
expression .Printer
expression A variable that represents an Application object.
Example
The following example makes the first printer in the Printers collection the default printer for the system, and then reports its name, driver information, and port information.
Dim prtDefault As Printer
Set Application.Printer = Application.Printers(0)
Set prtDefault = Application.Printer
With prtDefault
MsgBox "Device name: " & .DeviceName & vbCr _
& "Driver name: " & .DriverName & vbCr _
& "Port: " & .Port
End With