Previous Document Next Document

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


PrintSeparations.AutoSpreadAmount

Property AutoSpreadAmount As Double

Description

Member of PrintSeparations

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

Previous Document Next Document Back to Top

Copyright 2013 Corel Corporation. All rights reserved.