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

2020年3月3日12:08:16可以双面打印Excel表格的VBA代码 图文已关闭评论 241 views
可以双面打开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

  • 微信扫码免费学习
  • 免费学习48小时
  • weinxin
  • 我的微信公众号
  • EXCEL880
  • weinxin