Printer.PostScriptEnabled

Property PostScriptEnabled As Boolean

The PostScriptEnabled property returns whether the printer is able to print PostScript.

The PostScriptEnabled property returns a read-only value.

The following code example displays a message box for each printer that is able to print PostScript:

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 = Nothing 
End Sub