Returns the printer driver name
Syntax:
Property Get Type() As String
Remarks:
The Type property returns a read-only value containing the model name of a printer.
Examples:
The following VBA example displays whether the HP LaserJet 5P/5MP PostScript printer is installed.
Sub Test()
Dim intCounter As Integer
Dim Prn As Printer
For intCounter = 1 To Printers.Count
  Set Prn = Printers(intCounter)
  If Prn.Type = "HP LaserJet 5P/5MP PostScript" Then

 MsgBox "The " & Prn.Type & " printer is installed."

 Exit For
  Next intCounter
  Set Prn = Nothing

End Sub