API Documentation > CorelDRAW > 2025-v26 > PrintPostScript > IPrnVBAPrintPostScript
PrintPostScript.AutoIncreaseFountainSteps property
Specifies whether the number of fountain steps should be automatically increased for long color transitions
Syntax:
Property Get AutoIncreaseFountainSteps() As Boolean
Property Let AutoIncreaseFountainSteps(ByVal Value As Boolean)
Remarks:
The AutoIncreaseFlatness property specifies a Boolean (True or False) value that indicates whether the print engine increases the number of fountain steps to reduce banding. A value of True sets the print engine to make the increase if necessary.
Examples:
The following VBA example creates a rectangle and fills it with a a conical fountain fill. After it specifies AutoIncreaseFountainSteps as True, it 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, , 4
With ActiveDocument
  .PrintSettings.PostScript.AutoIncreaseFountainSteps = True
  .PrintOut
End With 
End Sub