奇偶页分别打印

jb_008

1. Sub 奇偶页分别打印()
   
2. Dim i%, Ps%
   
3. Ps = ExecuteExcel4Macro("GET.DOCUMENT(50)") '总页数
   
4. MsgBox "现在打印奇数页,按确定开始."
   
5. For i = 1 To Ps Step 2
   
6. ActiveSheet.PrintOut from:=i, To:=i
   
7. Next i
   
8. MsgBox "现在打印偶数页,按确定开始."
   
9. For i = 2 To Ps Step 2
   
10. ActiveSheet.PrintOut from:=i, To:=i
    
11. Next i
    
12. End Sub
    

复制代码

2288liu