Sub Test() Dim DrwPostScriptSettings As PrintPostScript Set DrwPostScriptSettings = ActiveDocument.PrintSettings.PostScript With DrwPostScriptSettings MsgBox "The current printing device is a PostScript level " & _ .Level & " device." End WithEnd Sub