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

aman1516

或者：

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.      pageTotal = Application.ExecuteExcel4Macro("get.document(50)") - 2      '减2代表模板页不要打印
   
10.      For jPage = pageTotal - IIf(pageTotal Mod 2 = 0, 1, 0) To 1 Step -2
    
11.          For k = 1 To f    '放内循环，每页打N份
    
12.              ActiveSheet.PrintOut from:=jPage, To:=jPage
    
13.          Next
    
14.      Next
    
15.      OK = MsgBox("请把纸张装入打印机，打印偶数页", vbOKCancel, "双面打印")
    
16.      If OK = vbOK Then
    
17.         For jPage = 2 To pageTotal Step 2
    
18.             For k = 1 To f
    
19.                 ActiveSheet.PrintOut from:=jPage, To:=jPage
    
20.             Next
    
21.         Next
    
22.      End If
    
23. End With
    
24. End Sub

复制代码

lhj1861

aman1516 发表于 2018-2-28 19:58
或者：

提示类型不匹配呢，我找不出原因，哪里错了，我看你写的着没错呀

lhj1861

aman1516 发表于 2018-2-28 19:58
或者：

我家里打印机打的挺快的，明天去单位打印机测试一下，谢谢哈

aman1516

lhj1861 发表于 2018-2-28 23:46
我家里打印机打的挺快的，明天去单位打印机测试一下，谢谢哈

声明中已经 Dim f As Integer
If f = "" Then Exit Sub 是防止按“取消”键时的容错代码
而你又弄个    f=Cint(...
后面当然不会 f＝“”