[已解决]请大家帮我精简优化下这二组代码。谢谢大家了！

yjwdjfqb

1. 
   
2. Sub Ⅰ反打偶数页()  '正反面打印,先反打偶数页,打印完后确定,再顺打奇数页
   
3.     With Options
   
4.         .UpdateFieldsAtPrint = False
   
5.         .UpdateLinksAtPrint = False
   
6.         .DefaultTray = "使用打印机设置"
   
7.         .PrintBackground = True
   
8.         .PrintProperties = False
   
9.         .PrintFieldCodes = False
   
10.         .PrintComments = False
    
11.         .PrintHiddenText = False
    
12.         .PrintXMLTag = False
    
13.         .PrintDrawingObjects = True
    
14.         .PrintDraft = False
    
15.         .PrintReverse = True
    
16.         .MapPaperSize = True
    
17.         .PrintOddPagesInAscendingOrder = False
    
18.         .PrintEvenPagesInAscendingOrder = False
    
19.         .PrintBackgrounds = False
    
20.     End With
    
21.     With ActiveDocument
    
22.         .PrintPostScriptOverText = False
    
23.         .PrintFormsData = False
    
24.     End With
    
25.     Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
    
26.                                                                         wdPrintDocumentContent, Copies:=1, Pages:="", PageType:= _
    
27.                                                                                                                                 wdPrintEvenPagesOnly, ManualDuplexPrint:=False, Collate:=True, Background _
    
28.                                                                                                                                                                                                :=True, PrintToFile:=False, PrintZoomColumn:=0, PrintZoomRow:=0, _
    
29.                          PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
    
30. MsgBox "反顺打印偶数页完成,请换打印纸方向,正顺打印奇数页！"
    
31. End Sub
    
32. Sub Ⅱ正打奇数页()  '正反面打印,先反打偶数页,打印完后确定,再顺打奇数页
    
33.     With Options
    
34.         .UpdateFieldsAtPrint = False
    
35.         .UpdateLinksAtPrint = False
    
36.         .DefaultTray = "使用打印机设置"
    
37.         .PrintBackground = True
    
38.         .PrintProperties = False
    
39.         .PrintFieldCodes = False
    
40.         .PrintComments = False
    
41.         .PrintHiddenText = False
    
42.         .PrintXMLTag = False
    
43.         .PrintDrawingObjects = True
    
44.         .PrintDraft = False
    
45.         .PrintReverse = False
    
46.         .MapPaperSize = True
    
47.         .PrintOddPagesInAscendingOrder = False
    
48.         .PrintEvenPagesInAscendingOrder = False
    
49.         .PrintBackgrounds = False
    
50.     End With
    
51.     With ActiveDocument
    
52.         .PrintPostScriptOverText = False
    
53.         .PrintFormsData = False
    
54.     End With
    
55.     Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
    
56.                                                                         wdPrintDocumentContent, Copies:=1, Pages:="", PageType:= _
    
57.                                                                                                                                 wdPrintOddPagesOnly, ManualDuplexPrint:=False, Collate:=True, Background _
    
58.                                                                                                                                                                                               :=True, PrintToFile:=False, PrintZoomColumn:=0, PrintZoomRow:=0, _
    
59.                          PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
    
60. End Sub
    
61. '请大家帮我精简优化下这二组代码。谢谢大家了！
    

复制代码

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-12-5 12:00

1. Sub Ⅰ反打偶数页()  '正反面打印,先反打偶数页,打印完后确定,再顺打奇数页
   
2.     With Options
   
3.         .DefaultTray = "使用打印机设置"
   
4.         .PrintBackground = True
   
5.         .PrintDrawingObjects = True
   
6.         .PrintReverse = True
   
7.         .MapPaperSize = True
   
8.     End With
   
9.     Application.PrintOut Filename:="", Range:=wdPrintAllDocument, Item:= _
   
10.                          wdPrintDocumentContent, Copies:=1, Pages:="", PageType:= _
    
11.                          wdPrintEvenPagesOnly, Collate:=True, Background:=True
    
12. 
    
13.     MsgBox "反顺打印偶数页完成,请换打印纸方向,正顺打印奇数页！"
    
14. End Sub
    
15. Sub Ⅱ正打奇数页()  '正反面打印,先反打偶数页,打印完后确定,再顺打奇数页
    
16.     With Options
    
17.         .DefaultTray = "使用打印机设置"
    
18.         .PrintBackground = True
    
19.         .PrintDrawingObjects = True
    
20.         .MapPaperSize = True
    
21. 
    
22.     End With
    
23.     Application.PrintOut Filename:="", Range:=wdPrintAllDocument, Item:= _
    
24.                          wdPrintDocumentContent, Copies:=1, Pages:="", PageType:= _
    
25.                          wdPrintOddPagesOnly, ManualDuplexPrint:=False, Collate:=True, Background:=True
    
26. 
    
27. End Sub
    
28. '请大家帮我精简优化下这二组代码。谢谢大家了！

复制代码

没测试，楼主自己测下。

跳转到最佳答案楼层

yjwdjfqb

请大家帮帮我精简优化下上面的二组代码，　谢谢大家了

hwc2ycy

1. Sub Ⅰ反打偶数页()  '正反面打印,先反打偶数页,打印完后确定,再顺打奇数页
   
2.     With Options
   
3.         .DefaultTray = "使用打印机设置"
   
4.         .PrintBackground = True
   
5.         .PrintDrawingObjects = True
   
6.         .PrintReverse = True
   
7.         .MapPaperSize = True
   
8.     End With
   
9.     Application.PrintOut Filename:="", Range:=wdPrintAllDocument, Item:= _
   
10.                          wdPrintDocumentContent, Copies:=1, Pages:="", PageType:= _
    
11.                          wdPrintEvenPagesOnly, Collate:=True, Background:=True
    
12. 
    
13.     MsgBox "反顺打印偶数页完成,请换打印纸方向,正顺打印奇数页！"
    
14. End Sub
    
15. Sub Ⅱ正打奇数页()  '正反面打印,先反打偶数页,打印完后确定,再顺打奇数页
    
16.     With Options
    
17.         .DefaultTray = "使用打印机设置"
    
18.         .PrintBackground = True
    
19.         .PrintDrawingObjects = True
    
20.         .MapPaperSize = True
    
21. 
    
22.     End With
    
23.     Application.PrintOut Filename:="", Range:=wdPrintAllDocument, Item:= _
    
24.                          wdPrintDocumentContent, Copies:=1, Pages:="", PageType:= _
    
25.                          wdPrintOddPagesOnly, ManualDuplexPrint:=False, Collate:=True, Background:=True
    
26. 
    
27. End Sub
    
28. '请大家帮我精简优化下这二组代码。谢谢大家了！

复制代码

没测试，楼主自己测下。

yjwdjfqb

hwc2ycy 发表于 2013-12-5 12:00
没测试，楼主自己测下。

反打偶数页正确

但是正打奇数页，成了，反打了奇数页。　改成：正顺打印奇数页

hwc2ycy

yjwdjfqb 发表于 2013-12-5 12:17
反打偶数页正确

但是正打奇数页，成了，反打了奇数页。　改成：正顺打印奇数页

1. Sub Ⅱ正打奇数页()  '正反面打印,先反打偶数页,打印完后确定,再顺打奇数页
   
2.     With Options
   
3.         .PrintBackground = True
   
4.         .PrintDrawingObjects = True
   
5.         .MapPaperSize = True
   
6.         .PrintOddPagesInAscendingOrder = False
   
7.         .PrintEvenPagesInAscendingOrder = False
   
8.         .PrintBackgrounds = False
   
9.     End With
   
10.     Application.PrintOut Filename:="", Range:=wdPrintAllDocument, Item:= _
    
11.                                                                         wdPrintDocumentContent, Copies:=1, Pages:="", PageType:= _
    
12.                                                                                                                                 wdPrintOddPagesOnly, ManualDuplexPrint:=False, Collate:=True, Background _
    
13.                                                                                                                                                                                               :=True, PrintToFile:=False, PrintZoomColumn:=0, PrintZoomRow:=0, _
    
14.                          PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
    
15. End Sub

复制代码

yjwdjfqb

hwc2ycy 发表于 2013-12-5 12:00
没测试，楼主自己测下。

谢谢版主的帮助，问题解决了！

hwc2ycy

yjwdjfqb 发表于 2013-12-5 14:16
谢谢版主的帮助，问题解决了！

一般情况下，属性的默认属性是FALSE，刚刚有两个设置单页的没注意直接干掉，就成了TRUE了。

yjwdjfqb

hwc2ycy 发表于 2013-12-5 14:19
一般情况下，属性的默认属性是FALSE，刚刚有两个设置单页的没注意直接干掉，就成了TRUE了。

就是，把属性改一下，参照老师的改了下，就对了。谢谢老师!