PrintPrepress.CropMarks

Property CropMarks As Boolean

The CropMarks property determines whether crop and fold marks that reside within the page are printed.

The following 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