Excel 手动双面打印

一指禅62

1. Sub 手动双面打印()
   
2.     Dim Pages As Long, i%
   
3.     On Error GoTo Print_Err
   
4.     Pages = ExecuteExcel4Macro("Get.Document(50)") '统计总页数
   
5.     Select Case Pages
   
6.         Case 0
   
7.             MsgBox "Microsoft Excel 未发现任何可以打印的内容", 0 + 48
   
8.         Case 1 '如果只有1页，打印然后退出
   
9.             ActiveSheet.PrintOut
   
10.             Err.Number = 1004
    
11.         Case Is > 1
    
12.             For i = 1 To Pages Step 2 '打印奇数页
    
13.                 ActiveSheet.PrintOut From:=i, To:=i
    
14.             Next
    
15.             If MsgBox("请将出纸器中已打印好一面的纸取出并将其放回到送纸器中，" _
    
16.                 & "然后按下""确定""，继续打印", 1 + 48) = 1 Then
    
17.                 For i = 2 To Pages Step 2   '打印偶数页
    
18.                     ActiveSheet.PrintOut From:=i, To:=i
    
19.                 Next
    
20.             End If
    
21.     End Select
    
22. Print_Exit:
    
23.     Exit Sub
    
24. Print_Err:
    
25.     MsgBox "在打印时发生错误，请检查你的打印机设置", 0 + 48
    
26.     Resume Print_Exit
    
27. End Sub

复制代码