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

2020年3月3日12:08:16可以双面打印Excel表格的VBA代码 图文已关闭评论 1,638 views
微信公众号 【EXCEL880】 QQ群【165159540】 Excel课程咨询 请加郑广学老师微信EXCEL880B
可以双面打开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