Object Model Reference : Classes : P : PrintSettings : Properties : PrintSettings.Separations |
Property Separations As PrintSeparations
Member of PrintSettings
The Separations property returns a PrintSeparations object.
The Separations property returns a read-only value.
The following VBA 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 |
Copyright 2013 Corel Corporation. All rights reserved.