PrintSeparations.AutoSpreadAmount property - Developer Area

API Documentation > CorelDRAW > 2019.2 > PrintSeparations > IPrnVBAPrintSeparations

PrintSeparations.AutoSpreadAmount property

Specifies the amount of spread for automatic color trapping

Syntax:

Property Get AutoSpreadAmount() As Double
Property Let AutoSpreadAmount(ByVal Value As Double)

Remarks:

The AutoSpreadAmount property returns or specifies the maximum width of an outline for auto-spreading.

Examples:

The following VBA example iterates through the SystemPrinters collection until it finds the specified printer. In a new document, it creates five shapes. It then enables print separations and auto-spreading. The Print dialog box is then displayed.

Sub Test()
  Dim doc As Document
  Dim s As Shape
  Dim prn As Printer
  Dim intCounter As Integer
  For intCounter = 1 To Printers.Count
    Set prn = Printers.Item(intCounter)
    If prn.Name = "Device Independent PostScript File" Then
      Exit For
    End If
  Next intCounter
  Set doc = CreateDocument
  With doc
    Set s = .ActiveLayer.CreateEllipse(0.592362, 10.426614, 7.534409, 7.366142, 90#, 90#, False)
    s.Fill.UniformColor.CMYKAssign 0, 0, 100, 0
    s.Outline.Type = cdrNoOutline
    Set s = .ActiveLayer.CreateArtisticText(1.25, 8.85, "This is a test of text")
    s.Text.FontProperties.Size = 48
    Set s = .ActiveLayer.CreateRectangle(1.712047, 6.321102, 5.668268, 4.654016, 0, 0, 0, 0)
    s.Fill.UniformColor.CMYKAssign 0, 100, 0, 0
    s.Outline.Type = cdrNoOutline
    s.Fill.UniformColor.CMYKAssign 0, 0, 100, 0
    Set s = .ActiveLayer.CreateRectangle(3.926535, 5.599528, 7.335354, 3.459685, 0, 0, 0, 0)
    s.Fill.UniformColor.CMYKAssign 0, 100, 0, 0
    s.Outline.Type = cdrNoOutline
    Set s = .ActiveLayer.CreateRectangle(0.642126, 5.276063, 5.071102, 2.215591, 0, 0, 0, 0)
    s.Fill.UniformColor.CMYKAssign 100, 100, 0, 0
    s.Outline.Type = cdrNoOutline
    With .PrintSettings
      Set .Printer = prn
      With .Separations
        .Enabled = True
        .AutoSpreadAmount = 3527.77778
        .AutoSpreading = True
        .AutoSpreadTextAbove = 254000
      End With
      .ShowDialog
    End With
  End With
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