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