Sub Test() With ActiveDocument .PrintSettings.PostScript.MaintainOPILinks = True .PrintSettings.PostScript.ResolveDCSLinks = True .PrintSettings.FileName = "c:\Temp.ps" .PrintSettings.PrintToFile = True .PrintOut End WithEnd Sub