Sub Test() MsgBox "The current PostScript level is level " & _ ActiveDocument.PrintSettings.PostScript.LevelEnd Sub