vba求教-有解無憂

想通過宏實作自動雙面列印，錄了個宏如下
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什么原因，請教大神解惑

uj5u.com熱心網友回復：

你這個宏錄制的不對吧？
應該有個回圈才對
奇數頁
for i=1 to 總頁數 step2
print out i,i
偶數頁改成2to總頁數 step2

uj5u.com熱心網友回復：

參考 1 樓神奇的VBA 的回復：

你這個宏錄制的不對吧？
應該有個回圈才對
奇數頁
for i=1 to 總頁數 step2
print out i,i
偶數頁改成2to總頁數 step2

我只需要自動雙面列印指定的a，b兩頁，不需要手動翻面的那種自動列印。列印機是支持的，但是錄成宏就跑不起來

轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/23394.html

標籤：VBA

上一篇：附件中表單所處陰影能否由直角改成圓角？

下一篇：如何在一個word按1-2的順序插入其他word的內容并在內容下面插入word的名字