Excel VBA 实现奇偶页打印

在Word打印的时候，可以直接选择打印奇数页和偶数页的功能，而在Excel中却没有提供此项功能。

下面示例，我们使用VBA在Excel中实现奇偶页打印功能。

如下图所示：

详细源码：

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 i

End Sub

代码分析：

第4行代码使用Excel4.0函数获取总页数，通过该函数获取总页数而无须判断分页符。现有文档可打印的内容有17页，运行代码后只打印奇数页

将上述代码中的循环变量i的初值设置为2，即可以实现按顺序打印偶数页。