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