API Documentation > CorelDRAW > 2025-v26 > PrintSeparations > IPrnVBAPrintSeparations
PrintSeparations.AutoSpreadTextAbove property
Specifies the smallest point size for text to be trapped automatically
Syntax:
Property Get AutoSpreadTextAbove() As Double
Property Let AutoSpreadTextAbove(ByVal Value As Double)
Remarks:
The AutoSpreadTextAbove property returns or specifies the minimum width of an outline for auto-spreading.
Examples:
The following code example iterates through the SystemPrinters collection until it finds the specified printer. In a new document, it creates five shapes. It then enables 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