可以双面打印Excel表格的VBA代码 图文

在excel中没有提供双面打印的功能，实现双面打印有两种方式，一种是使用打印机自带的双面打印功能，另一种方法就是使用VBA编写双面打印程序。

Sub 奇偶页分别打印()

Dim i%, Ps%

Ps = ExecuteExcel4Macro("GET.DOCUMENT(50)") '用宏表函数取总页数

MsgBox "现在打印奇数页,按确定开始."

For i = 1 To Ps Step 2

ActiveSheet.PrintOut from:=i, To:=i

Next i

MsgBox "现在打印偶数页,纸张反面放置后,按确定开始."

For i = 2 To Ps Step 2

ActiveSheet.PrintOut from:=i, To:=i

Next i

End Sub