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