Printer.Type

Property Type As String

Member of Printer

The Type property returns the model name of a printer.

The Type property returns a read-only value.

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