如何在Excel中仅打印偶数页或奇数页？

在使用Excel时，您可能经常需要打印页面，默认情况下，您可以打印选定区域、整个工作簿或指定的页面，例如从第1页到第3页。但您是否知道如何仅打印当前工作簿中的偶数页或奇数页呢？本文将介绍一些技巧，帮助您在Excel工作簿中仅打印偶数页或奇数页。

仅使用VBA打印偶数/奇数页

使用Kutools for Excel打印特定页面

使用Kutools for Excel打印每个工作表的第一页

仅使用VBA打印偶数/奇数页

在Excel中，如果您只想打印偶数页或奇数页，可以应用VBA来完成此操作。

1. 按 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 点击 插入 > 模块，然后将以下VBA代码粘贴到新的 模块窗口中。

VBA：仅打印偶数或奇数页

Sub PrintOddEven()
'UpdatebyKutoolsforExcel20160105
    Dim xPages As Long
    Dim xFPage As Variant
    Dim Page As Integer
    xPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
    xFPage = Application.InputBox("Enter 1 for odd pages, enter 2 for even pages", "Kutools for Excel", , , , , , 1)
    If TypeName(xFPage) = "Boolean" Then Exit Sub
    If xFPage > 0 Then
        xFPage = Abs((xFPage Mod 2) - 2)
        For Page = xFPage To xPages Step 2
            ActiveSheet.PrintOut Page, Page
        Next
    End If
End Sub

3. 按 F5 执行VBA，并输入 1 以打印所有奇数页，或输入 2 以在弹出的对话框中打印所有偶数页。 Kutools for Excel 对话框。见截图：

4. 点击 确定，然后只有奇数页或偶数页会被打印。

使用Kutools for Excel打印特定页面

如果您不熟悉VBA代码，可以使用 Kutools for Excel 的 打印指定页面 功能，它可以快速根据您的需求打印特定页面，例如仅打印奇数/偶数页，或仅打印第5-12页。

安装 Kutools for Excel 后，请按以下步骤操作：（立即免费下载 Kutools for Excel！）

点击 Kutools Plus > 打印 > 打印指定页面，在弹出的对话框中勾选 奇数页 或 偶数页 选项，视您的需求而定。见截图：

点击 确定，然后只有奇数页或偶数页会被打印。

备注：如果您想打印某些特定页面，例如第2页到第5页，您可以勾选 自定义范围 选项并在文本框中输入2-5。见截图：

提示：如果您想免费试用 打印指定页面 功能，请先前往免费下载 Kutools for Excel，然后按照上述步骤进行操作。

仅打印奇数/偶数/特定页面

使用Kutools for Excel打印每个工作表的第一页

如果您的工作簿中有多个工作表，现在您只想打印每个工作表的第一页，在这种情况下，您可以应用 Kutools for Excel 的 打印每张工作表的第一页 功能来快速完成此操作。

安装 Kutools for Excel 后，请按以下步骤操作：（立即免费下载 Kutools for Excel！）

启用您要打印每张工作表第一页的工作簿，并点击 Kutools Plus > 打印 > 打印每张工作表的第一页。见截图：

然后每个工作表的第一页都会被打印。

相关文章：

• 如何在Excel中首先打印最后一页？
• 如何在Excel中每页打印X行？