word vba 设置打印偶数页面

Sub PrintEvenPages() '设置打印偶数页面 With ActiveDocument.PageSetup .OddAndEvenPagesHeaderFooter = True .DifferentFirstPageHeaderFooter = False End With ActiveDocument.PrintOut Range:=wdPrintEvenPagesOnly End Sub