奇偶页打印已实现，就是打印机不是连续打印，烦

lhj1861

以下代码已成功实现在excel中奇偶页打印，可是每打一页就复位一下打印第二页，复位的意思就是假如我要打10份，我要点10次当前页打印的那种感觉，要的是点一下，全部打印出来的感觉。意思应该你懂得！每次打印复位的话太耗时了，能否实现这么多页连贯性打印。
Sub 奇偶页打印() '实现奇偶页打印
Dim pageTotal As Integer
Dim jPage As Integer
Dim OK


Worksheets("量化表").Activate
With Sheets("量化表")
    pageTotal = Application.ExecuteExcel4Macro("get.document(50)") - 2      '减2代表模板页不要打印

    For jPage = pageTotal - IIf(pageTotal Mod 2 = 0, 1, 0) To 1 Step -2
    ActiveSheet.PrintOut from:=jPage, To:=jPage
    Next

    OK = MsgBox("请把纸张装入打印机，打印偶数页", vbOKCancel, "双面打印")

    If OK = vbOK Then
    For jPage = 2 To pageTotal Step 2
    ActiveSheet.PrintOut from:=jPage, To:=jPage
    Next
    End If
End With
End Sub



补充内容 (2018-2-1 13:40):
如果不懂我说的意思的话，我发出图给你们看，在4楼

lhj1861

顶上去，继续问

ggmmlol

使用PdfFactory软件，并设置该软件生成的虚拟打印机为默认打印机。这样，在打印时，将得到一个Pdf文档，在保存之前，还可以任意删除其中的页面（比如有空白页的时候），再利用Pdf阅读器查看、双面打印。
这种方式，可以避免页面设置不正确时造成的纸张和墨粉（墨水）浪费，同时可以保持打印机工作的连续性，关键是当需要打印多份时，可以逐份打印，不必在打印之后再分拣、排序了。

ggmmlol

lhj1861

C:\Documents and Settings\Administrator\桌面\excel多张单据做在同一个工作表里.bmpC:\Documents and Settings\Administrator\桌面\word里打印5页在一个打印任务.bmp同样是打印5个单据，word里打印五个单据只有一个打印任务，而excel里5个单据做在同一个工作表里，点击自己设计的打印按钮，会有5个打印任务，，我想实现在excel里5个单据都在集中在一个打印任务打印，以上代码如何修改，或者有没可替代的代码？

lhj1861

有老师会吗？网上我搜遍只是实现excel奇偶页打印，但是都是多个页面以多个打印任务打印的，不能多个页面在一个打印任务打印？

aman1516

lhj1861 发表于 2018-2-21 21:43
有老师会吗？网上我搜遍只是实现excel奇偶页打印，但是都是多个页面以多个打印任务打印的，不能多个页面在 ...

试试这个： Excel奇偶页打印.rar (71.05 KB, 下载次数: 59)

2018-2-26 13:45 上传

点击文件名下载附件

aman1516

在原代码上加个外循环控制打印份数（通过Inputboxl输入要打印的份数，作为外循环变量）

lhj1861

aman1516 发表于 2018-2-26 13:51
在原代码上加个外循环控制打印份数（通过Inputboxl输入要打印的份数，作为外循环变量）

你那个插件，我用了，还是跟我代码功能一样，奇数页打印时不能合在一个打印任务里完成。另外只打印一份，不需要加打印份数呢。比如有10页，奇数5页（5页合在一个打印任务，不要5个分成5个单页打印任务），偶数5页，打印一份就行。

aman1516

lhj1861 发表于 2018-2-28 18:59
你那个插件，我用了，还是跟我代码功能一样，奇数页打印时不能合在一个打印任务里完成。另外只打印一份， ...

你原来的代码加个循环：

1. Sub 奇偶页打印() '实现奇偶页打印
   
2. Dim pageTotal As Integer
   
3. Dim jPage As Integer
   
4. Dim f As Integer, k, OK
   
5. f = InputBox("请输入要打印的份数，默认为1份", "多份打印", "1")
   
6. If f = "" Then Exit Sub
   
7. Worksheets("量化表").Activate
   
8. With Sheets("量化表")
   
9. For k = 1 To f
   
10.     pageTotal = Application.ExecuteExcel4Macro("get.document(50)") - 2      '减2代表模板页不要打印
    
11.     For jPage = pageTotal - IIf(pageTotal Mod 2 = 0, 1, 0) To 1 Step -2
    
12.         ActiveSheet.PrintOut from:=jPage, To:=jPage
    
13.     Next
    
14. Next    '一次打印完N份的奇数页，'再打印N份的偶数页
    
15. OK = MsgBox("请把纸张装入打印机，打印偶数页", vbOKCancel, "双面打印")
    
16. For k = 1 To f
    
17.     If OK = vbOK Then
    
18.        For jPage = 2 To pageTotal Step 2
    
19.            ActiveSheet.PrintOut from:=jPage, To:=jPage
    
20.        Next
    
21.     End If
    
22. Next
    
23. End With
    
24. End Sub

复制代码

请测试