The following code example creates a new document containing two rectangles. Each rectangle is filled with a different color (cyan and magenta). The document and any crop marks that appear within the page are then printed.
Sub Test()
Dim doc As Document
Dim s As Shape
Set doc = CreateDocument
Set s = ActiveLayer.CreateRectangle(0.667008, 10.302205, 2.906378, 8.062835, 0, 0, 0, 0)
s.Fill.UniformColor.CMYKAssign 100, 0, 0, 0
s.Outline.Type = cdrNoOutline
Set s = ActiveLayer.CreateRectangle(4.77252, 10.351969, 6.987008, 8.13748, 0, 0, 0, 0)
s.Fill.UniformColor.CMYKAssign 0, 100, 0, 0
s.Outline.Type = cdrNoOutline
With doc
With .PrintSettings
.Prepress.CropMarks = True
.Prepress.ExteriorCropMarks = False
.Options.MarksToPage = True
End With
.PrintOut
End With
End Sub