PrintSeparations.AutoSpreading

Property AutoSpreading As Boolean

The AutoSpreading property determines whether auto-spreading is enabled.

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