PrintPostScript.AutoIncreaseFlatness property - Developer Area

API Documentation > CorelDRAW > 2024-v25 > 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

Version Information:

CorelDRAW:	X7.4, X7, X7.6, X8, 2017, 2018, 2019, 2019.2, 2020, 2021, 2020.1, 2021.5, 2022-v24, 2022-v24.1, 2022-v24.2, 2023-v24.3, 2023-v24.5, 2024-v25
Corel PHOTO-PAINT:	X7.4, X7, X7.6, X8, 2017, 2018, 2019, 2019.2, 2020, 2021, 2020.1, 2021.5, 2022-v24, 2022-v24.1, 2022-v24.2, 2023-v24.3, 2023-v24.5, 2024-v25
Corel DESIGNER:	X7, 2017.1, 20.1, 2019.2, 2020.1, 2021.5, 2022-v24, 2022-v24.1, 2022-v24.2, 2023-v24.3, 2023-v24.5, 2024-v25