PrintSeparations.AutoSpreadTextAbove

Object Model Reference : Classes : P : PrintSeparations : Properties : PrintSeparations.AutoSpreadTextAbove

PrintSeparations.AutoSpreadTextAbove

Property AutoSpreadTextAbove As Double

Description

Member of PrintSeparations

The AutoSpreadTextAbove property returns or specifies the smallest point size for text to be trapped automatically.

VBA example

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 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 Sub