新人贴，word双面打印宏，这样可以避免手动翻页了

citysvip

本人word2010测试通过。由于2010自带的手动双面打印，需要手动纸张排序，因此做了这个宏。
代码大部分都是录制生成。欢迎测试。

1. Dim ok
   
2.     Options.PrintReverse = True
   
3.     Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
   
4.         wdPrintDocumentWithMarkup, Copies:=1, Pages:="", PageType:= _
   
5.         wdPrintEvenPagesOnly, Collate:=True, Background:=True, PrintToFile:=False _
   
6.         , PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
   
7.         PrintZoomPaperHeight:=0
   
8.        Savetime = Timer '记下开始的时间
   
9.     While Timer < Savetime + 5 '循环等待
   
10.     DoEvents '转让控制权，以便让操作系统处理其它的事件
    
11.     Wend
    
12.     ok = MsgBox("打印完正面后，文字朝下字头朝前放入纸张，点确定继续", vbOKCancel, "双面打印")
    
13.     If ok = 1 Then
    
14.         Options.PrintReverse = False
    
15.     Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
    
16.         wdPrintDocumentWithMarkup, Copies:=1, Pages:="", PageType:= _
    
17.         wdPrintOddPagesOnly, Collate:=True, Background:=True, PrintToFile:=False, _
    
18.          PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
    
19.         PrintZoomPaperHeight:=0
    
20.     Else
    
21.     Options.PrintReverse = False
    
22.     End
    
23.     End If
    
24.    
    
25.    
    
26. End Sub

复制代码

citysvip

用的好请顶下谢谢