Sub Test() With ActiveDocument .PrintSettings.Prepress.Mirror = False .PrintOut .PrintSettings.Prepress.Mirror = True .PrintOut End WithEnd Sub