PrintSeparations.AutoSpreadAmount

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

PrintSeparations.AutoSpreadAmount

Property AutoSpreadAmount As Double

Description

The AutoSpreadAmount property returns or specifies the amount of spread (that is, the maximum outline width) for auto-trapping.

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