Sub Test() Dim intCounter As Integer Dim Prn As Printer For intCounter = 1 To Printers.Count Set Prn = Printers(intCounter) If Prn.PostScriptEnabled = True Then MsgBox "The " & Prn.Type & " is able to print PostScript." End If Next intCounter Set Prn = NothingEnd Sub