Excel VBA 实现奇偶页打印

在Word打印的时候，可以直接选择打印奇数页和偶数页的功能，而在Excel中却没有提供此项功能。下面示例，我们使用VBA在Excel中实现奇偶页打印功能。
如下图所示：
1501837918511088.jpg (52.09 KB, 下载次数: 0, 售价: 4 金钱)

2022-4-23 11:40 上传

点击文件名下载附件
1501837918511088.jpg

详细源码：Sub PrintOddPage()  Dim TotalPg As Integer  Dim i As Integer  TotalPg = ExecuteExcel4Macro("Get.DOCUMENT(50)")  For i = 1 To TotalPg Step 2    ActiveSheet.PrintOut from:=i, to:=i  Next iEnd Sub
代码分析：第4行代码使用Excel4.0函数获取总页数，通过该函数获取总页数而无须判断分页符。现有文档可打印的内容有17页，运行代码后只打印奇数页将上述代码中的循环变量i的初值设置为2，即可以实现按顺序打印偶数页。