PrintPostScript.OptimizeFountainFills

Property OptimizeFountainFills As Boolean

The OptimizeFountainFills property determines whether the print engine decreases the number of fountain steps. When this property is set to True, the print engine makes the decrease if it is necessary.

The following code example creates a rectangle, fills it with a conical fountain fill with 256 steps, sets the OptimizeFountainFills property to True, and prints the document:

Sub Test() 
 Dim s As Shape 
 Set s = ActiveLayer.CreateRectangle(2, 4, 6, 8) 
 s.Fill.ApplyFountainFill CreateRGBColor(255, 0, 0), 
CreateRGBColor(0, 255, 0), cdrConicalFountainFill, , 256 
 With ActiveDocument 
  .PrintSettings.PostScript.OptimizeFountainFills = True 
  .PrintOut 
 End With 
End Sub