Sub Test() With ActiveDocument With .PrintSettings.Prepress .RegistrationMarks = True .RegistrationStyle = prnCorel End With .PrintSettings.Options.MarksToPage = True .PrintSettings.ShowDialog .PrintOut End WithEnd Sub