PrintSettings.Separations

Property Separations As PrintSeparations

The Separations property returns a PrintSeparations object.

The Separations property returns a read-only value.

The following code example creates a new document. Four rectangles, each filled with a different uniform color (cyan, yellow, magenta, or black) are created, and then separations are printed.

Sub Test() 
 Dim doc As Document 
 Dim s As Shape 
 Set doc = CreateDocument 
 Set s = ActiveLayer.CreateRectangle(0.940709, 10.177795, 3.130315, 
8.411181, 0, 0, 0, 0) 
 s.Fill.UniformColor.CMYKAssign 0, 0, 0, 100 
 s.Outline.Type = cdrNoOutline 
 Set s = ActiveLayer.CreateRectangle(1.139764, 5.201417, 3.553307, 
3.111339, 0, 0, 0, 0) 
 s.Fill.UniformColor.CMYKAssign 0, 0, 100, 0 
 s.Outline.Type = cdrNoOutline 
 Set s = ActiveLayer.CreateRectangle(4.896929, 10.202677, 7.186063, 
8.510709, 0, 0, 0, 0) 
 s.Fill.UniformColor.CMYKAssign 0, 100, 0, 0 
 s.Outline.Type = cdrNoOutline 
 Set s = ActiveLayer.CreateRectangle(5.245276, 5.450236, 7.683701, 
3.285512, 0, 0, 0, 0) 
 s.Fill.UniformColor.CMYKAssign 100, 0, 0, 0 
 s.Outline.Type = cdrNoOutline 
 With doc 
  .PrintSettings.Separations.Enabled = True 
  .PrintOut 
 End With 
End Sub