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 WithEnd Sub