The following VBA example creates a new document and inserts two overlapping rectangles. Uniform fills of different colors (cyan and magenta) are applied to the rectangles, and an outline of 24pt is added to the overlying rectangle. Before the document is printed, separations are enabled.
Sub Test()
Dim doc As Document
Dim s As Shape
Set doc = CreateDocument
With doc
Set s = .ActiveLayer.CreateRectangle(2.209685, 8.809291, 5.742913, 6.196693, 0, 0, 0, 0)
s.Fill.UniformColor.CMYKAssign 0, 0, 100, 0
s.Outline.Type = cdrNoOutline
Set s = .ActiveLayer.CreateRectangle(3.578189, 7.838898, 7.285591, 5.251181, 0, 0, 0, 0)
s.Fill.UniformColor.CMYKAssign 0, 100, 0, 0
s.Outline.Width = 0.333335
With .PrintSettings.Separations
.Enabled = True
.AlwaysOverprintBlack = False
End With
.PrintOut
End With
End Sub