您现在的位置是:首页 > Excel技巧>Excel VBA 实现奇偶页打印

Excel打印奇偶页-Excel VBA 实现奇偶页打印

发布于2022-04-150人已围观

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

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

如下图所示：

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，即可以实现按顺序打印偶数页。

共0条评论