Sub Test() With ActiveDocument .PrintSettings.Prepress.PageNumbers = True .PrintSettings.Prepress.InfoWithinPage = True .PrintOut End WithEnd Sub