API Documentation > CorelDRAW > 2025-v26 > PrintPostScript > IPrnVBAPrintPostScript
PrintPostScript.AutoIncreaseFlatness property
Specifies whether the curve flatness should be increased automatically if insufficient
Syntax:
Property Get AutoIncreaseFlatness() As Boolean
Property Let AutoIncreaseFlatness(ByVal Value As Boolean)
Remarks:
When the AutoIncreaseFlatness property specifies a Boolean (True or False) value that indicates whether to automatically increase the flatness of objects. A value of True sets the print engine to increase the flatness of objects in increments of two.
Examples:
The following VBA example creates a curve, specifies the AutoIncreaseFlatness property as True, and prints the document.
Sub Test()
Dim s As Shape
Set s = ActiveLayer.CreateCurve
With s.Curve.CreateSubPath(0.492835, 10.327087)
  .AppendCurveSegment False, 1.065118, 9.879213, 0.189492, -23.198591, 0.646929, 0#
  .AppendCurveSegment False, 1.313937, 9.381575, 0.497638, 180#, 0.225315, 173.659808
  .AppendCurveSegment False, 1.363701, 9.05811, 0.15135, -9.462322, 0.12687, 11.309932
  .AppendCurveSegment False, 0.791417, 8.859055, 0.078681, -161.565051, 0.174173, 90#
  .AppendCurveSegment False, 1.438346, 8.560472, 0.348346, -90#, 0.248819, 90#
  .AppendCurveSegment False, 0.890945, 8.386299, 0.323465, -90#, 0.223937, 0#
  .AppendCurveSegment False, 1.139764, 8.062835, 0.373228, 180#, 0.124409, 180#
  .AppendCurveSegment False, 1.413465, 7.490551, 0.750177, -5.710593, 0.497638, 90#
  .AppendCurveSegment False, 1.911102, 7.391024, 0.099528, -90#, 0.102591, 104.036243
  .AppendCurveSegment False, 1.811575, 6.793858, 0.338429, -72.897271, 0.380618, 168.690068
  .AppendCurveSegment False, 2.209685, 7.117323, 0.537126, -13.392498, 0.278185, -116.565051
  .AppendCurveSegment False, 3.478661, 6.768976, 0.556374, 63.434949, 0.746457, 90#
  .AppendCurveSegment False, 2.981024, 6.669449, 0.174173, -90#, 0.099528, 0#
  .AppendCurveSegment False, 2.682441, 7.21685, 0.200602, 172.874984, 0#, 0#
End With
With ActiveDocument.PrintSettings.PostScript
  .AutoIncreaseFlatness = True
End With
ActiveDocument.PrintOut 
End Sub