The following VBA example creates two rectangles with uniform fills. It then enables separations and Hexachrome colors. The Print dialog box is then displayed.
Sub Test()
Dim s As Shape
Set s = ActiveLayer.CreateRectangle(1.239291, 7.590079, 4.050945, 4.778425, 0, 0, 0, 0)
s.Fill.UniformColor.CMYKAssign 100, 0, 0, 0
s.Outline.Type = cdrNoOutline
Set s = ActiveLayer.CreateRectangle(2.607795, 6.395748, 5.344803, 3.65874, 0, 0, 0, 0)
s.Fill.UniformColor.CMYKAssign 0, 100, 0, 0
s.Outline.Type = cdrNoOutline
With ActiveDocument
With .PrintSettings
.Separations.Enabled = True
.Separations.Hexachrome = True
.ShowDialog
End With
End With
End Sub