Sub Test() With ActiveDocument.PrintSettings .Separations.Enabled = True .Separations.SpotToCMYK = True .Options.FountainSteps = 20 .Prepress.InfoWithinPage = True .PostScript.Level = prnPSLevel1 End With ActiveDocument.PrintOutEnd Sub