Examples:
The following VBA example disables the MarksToPage setting, enables registration marks, creates a rectangle, and prints the document. It then enables the MarksToPage setting and prints the document again.
Sub Test()
Dim s As Shape
With ActiveDocument
.PrintSettings.Options.MarksToPage = False
.PrintSettings.Prepress.RegistrationMarks = True
Set s = .ActiveLayer.CreateRectangle(2, 6, 8, 8)
.PrintOut
.PrintSettings.Options.MarksToPage = True
.PrintSettings.Prepress.RegistrationMarks = True
.PrintOut
End With
End Sub