Examples:
The following VBA example displays the current value of the MaxPointsPerCurve property. It then specifies the value as one-half of the previous value and displays the new value.
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 With
End Sub