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

在Excel工作中，您通常可能需要打印页面，默认情况下，您可以打印选择内容，打印整个工作簿或打印指定的页面，例如从第1页到第3页，但是您知道如何仅打印偶数页面或活动工作簿的奇数页？ 在本文中，我将介绍一些技巧，以帮助您仅在Excel工作簿中仅打印偶数页或奇数页。

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

使用 Kutools for Excel 打印特定页面

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

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

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

1。 按 Alt + F11键 打开钥匙 Microsoft Visual Basic应用程序 窗口。

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。 点击 OK，只有奇数页或偶数页正在打印。

使用 Kutools for Excel 打印特定页面

如果您不熟悉VBA代码，则可以申请 Kutools for Excel's 打印特定页面 实用程序，它可以仅根据需要快速打印特定页面，例如仅打印奇数/偶数页面，仅打印5-12页。

安装后 Kutools for Excel，请执行以下操作:(立即免费下载 Kutools for Excel！）

点击 Kutools 加 > 印刷 > 打印特定页面，然后在弹出的对话框中选中 奇数页 or 偶数页 您需要的选项。 看截图：

点击 Ok。 然后仅打印奇数页或偶数页。

备注：如果要打印某些页面，例如第2页到第5页，则可以选中“自定义范围”选项，然后在文本框中输入2-5。 看截图：

小费。 如果您想免费试用“打印特定页面”功能， 请去免费下载 Kutools for Excel 首先，然后按照上述步骤进行操作。

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

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

如果打开的工作簿中有多个工作表，而现在您只想打印每个工作表的所有第一页，那么在这种情况下，您可以应用 打印每个工作表的第一页 实用程序 Kutools for Excel 快速完成它。

安装后 Kutools for Excel，请执行以下操作:(立即免费下载 Kutools for Excel！）

启用要打印每张纸第一页的工作簿，然后单击 Kutools 加 > 印刷 > 打印每个工作表的第一页。 看截图：

然后，将打印每张纸的所有第一页。

相关文章：

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