API Documentation > CorelDRAW > 2025-v26 > PrintPostScript > IPrnVBAPrintPostScript
PrintPostScript.OptimizeFountainFills property
Specifies whether the number of fountain steps should be automatically decreased for short color transitions
Syntax:
Property Get OptimizeFountainFills() As Boolean
Property Let OptimizeFountainFills(ByVal Value As Boolean)
Remarks:
The OptimizeFountainFills property returns or specifies a Boolean (True or False) value that indicates whether the print engine decreases the number of fountain steps. A value of True sets the print engine to make the decrease if necessary.
Examples:
The following VBA example creates a rectangle, fills it with a conical fountain fill with 256 steps, specifies the OptimizeFountainFills property as 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