Sub Test() With ActiveDocument MsgBox "The current value of MaxPointsPerCurve is " & _ .PrintSettings.PostScript.MaxPointsPerCurve .PrintSettings.PostScript.MaxPointsPerCurve = .PrintSettings.PostScript.MaxPointsPerCurve / 2 MsgBox "The current value of MaxPointsPerCurve is " & _ .PrintSettings.PostScript.MaxPointsPerCurve End WithEnd Sub