vba求教

Question

想通过宏实现自动双面打印，录了个宏如下
Sub 双面打印()
'
' 双面打印 宏
'
'
    Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
        wdPrintDocumentWithMarkup, Copies:=1, Pages:="1,2", PageType:= _
        wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
        PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
End Sub
有时管用有时不管用，而且自动打印出的反面边距会有问题。求教大神解决方法。还有平时习惯ctrl+a，F9更新所有域。想在控件按钮理加这个功能，也录了个宏
    Selection.WholeStory
    ActiveDocument.Shapes.Range(Array("Left Brace 14")).Select
    ActiveDocument.Shapes.Range(Array("Straight Connector 13")).Select
    ActiveDocument.Shapes.Range(Array("文本框 2")).Select
    ActiveDocument.Shapes.Range(Array("文本框 2")).Select
    ActiveDocument.Shapes.Range(Array("文本框 2")).Select
    ActiveDocument.Shapes.Range(Array("Text Box 2")).Select
    ActiveDocument.Shapes.Range(Array("文本框 2")).Select
    ActiveDocument.Shapes.Range(Array("文本框 2")).Select
    ActiveDocument.Shapes.Range(Array("文本框 2")).Select
    ActiveDocument.Shapes.Range(Array("文本框 2")).Select
    ActiveDocument.Shapes.Range(Array("文本框 2")).Select
    ActiveDocument.Shapes.Range(Array("文本框 2")).Select
    ActiveDocument.Shapes.Range(Array("文本框 2")).Select
    ActiveDocument.Shapes.Range(Array("文本框 2")).Select
    ActiveDocument.Shapes.Range(Array("文本框 2")).Select
    ActiveDocument.Shapes.Range(Array("文本框 2")).Select
    ActiveDocument.Shapes.Range(Array("文本框 2")).Select
    ActiveDocument.Shapes.Range(Array("文本框 2")).Select
    ActiveDocument.Shapes.Range(Array("文本框 2")).Select
    ActiveDocument.Shapes.Range(Array("文本框 2")).Select
    ActiveDocument.Shapes.Range(Array("文本框 2")).Select
    ActiveDocument.Shapes.Range(Array("文本框 2")).Select
    ActiveDocument.Shapes.Range(Array("文本框 2")).Select
    ActiveDocument.Shapes.Range(Array("文本框 2")).Select
    ActiveDocument.Shapes.Range(Array("文本框 2")).Select
    ActiveDocument.Shapes.Range(Array("文本框 2")).Select
    ActiveDocument.Shapes.Range(Array("文本框 2")).Select
    ActiveDocument.Shapes.Range(Array("文本框 2")).Select
    ActiveDocument.Shapes.Range(Array("Text Box 1")).Select
    ActiveDocument.Shapes.Range(Array("文本框 2")).Select
    ActiveDocument.Shapes.Range(Array("Text Box 7")).Select
    ActiveDocument.Shapes.Range(Array("文本框 2")).Select
    ActiveDocument.Shapes.Range(Array("Text Box 8")).Select
    Selection.Fields.update
这个宏跑完域也没更新，而且中间那一堆select什么原因，请教大神解惑

Answer 1

你这个宏录制的不对吧？
应该有个循环才对
奇数页
for i=1 to 总页数 step2
print out i,i
偶数页改成2to总页数 step2