哥们姐们给我看看，如何优化和修改

gaozengxun

下面这段代码是用word每面二版打印小册子，老是出错，页数多时，一次和一次不同。

1. Sub 每页二版打印()
   
2.     Dim i%, m$
   
3.     m = Int(Selection.Information(wdNumberOfPagesInDocument) / 4) '总页数除以4然后取整得到应打印的纸张数
   
4.     For i = 1 To m
   
5.         Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
   
6.             wdPrintDocumentContent, Copies:=1, Pages:=(i - 1) * 4 + 2 & "," & (i - 1) * 4 + 3, PageType:= _
   
7.             wdPrintAllPages, ManualDuplexPrint:=False, Collate:=True, Background:= _
   
8.             True, PrintToFile:=False, PrintZoomColumn:=2, PrintZoomRow:=1, _
   
9.             PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
   
10.     Next i
    
11.     MsgBox "打印完后,请您将纸张按正确的方式反面放入按【确定】继续打印机", 48, "提示"
    
12.     For i = m To 1 Step -1
    
13.         Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
    
14.             wdPrintDocumentContent, Copies:=1, Pages:=i * 4 & "," & (i - 1) * 4 + 1, PageType:= _
    
15.             wdPrintAllPages, ManualDuplexPrint:=False, Collate:=True, Background:= _
    
16.             True, PrintToFile:=False, PrintZoomColumn:=2, PrintZoomRow:=1, _
    
17.             PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
    
18.     Next i
    
19. End Sub

复制代码

gaozengxun

自己顶一个，高手看看