The Printers property returns the SystemPrinters collection object that contains a list of installed printers on the user's system.
Examples:
The following VBA example displays the name of the default printer and the port to which it is connected.
Sub Test()
If Printers.Count = 0 Then
MsgBox "There's no printer installed on the system."
Exit Sub
End If
MsgBox "Default printer is: " & Printers.Default.Name & _
" on port: " & Printers.Default.Port
End Sub