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

在准备多页工作表时，通常在 Word 中可以选择仅打印奇数页或偶数页，正如附带截图中的选项所示。这种选择性打印功能在您希望双面打印（手动双工）或将纸张和大型文档的打印任务进行更精细控制时特别有用。

然而，Excel 的打印对话框并没有提供直接打印奇数页或偶数页的选项，这在需要审查、分发或存档长工作表中的特定页面的办公或数据报告场景中可能带来不便。

本文提供了针对 Excel 这一限制的两种有效解决方案。您将找到一个用于打印奇数页或偶数页的 VBA 宏，以及使用 Kutools for Excel 的更灵活方法，以便您可以根据自己的需求和技术熟练程度选择最适合的方法。

仅使用宏代码打印奇数页或偶数页
使用 Kutools for Excel 按需打印奇数页、偶数页或指定页面
替代方案：通过打印对话框手动打印奇数页或偶数页

仅使用宏代码打印奇数页或偶数页

在 Excel 中，虽然打印界面缺乏直接的奇数/偶数页选择选项，但您可以使用 VBA 宏来实现这一功能。如果您能够执行简单的代码并且需要一个无需第三方工具即可工作的解决方案，那么此方法非常适合您。对于一次性任务或不需要频繁进行复杂打印管理的用户来说，这种方法特别实用。

在开始之前，请确保您的工作表已格式化以适应打印，并在打印预览中确认将生成多少页。这将帮助您避免因意外分页而导致的空白或不必要的打印输出。

1. 打开要打印的工作表，然后按 Alt + F11 启动 Microsoft Visual Basic for Applications (VBA) 编辑器。

2. 在 VBA 编辑器中，点击 插入 > 模块 以插入新模块，并将以下代码粘贴到脚本窗口中。请参考截图获取指导。

VBA: 仅打印奇数页或偶数页

Sub Odd_Even_Print()
'UpdatebyExtendoffice20160901
Dim xTotalPages As Long
Dim xStartPage As String
Dim xPage As Integer, xYesorNo
Application.ScreenUpdating = False
xStartPage = InputBox("Enter 1 for Odd, 2 for Even", "Kutools for Excel")
If xStartPage = "" Then Exit Sub
xTotalPages = ActiveSheet.PageSetup.Pages.Count
xYesorNo = MsgBox("Are you sure to print?", vbYesNo, "Kutools for Excel")
If xYesorNo = vbYes Then
  For xPage = Int(xStartPage) To xTotalPages Step 2
    ActiveSheet.PrintOut from:=xPage, To:=xPage
  Next
Else
  Exit Sub
End If
Application.ScreenUpdating = True
End Sub

复制并粘贴代码时，请确保不要覆盖可能需要的现有宏。

3. 按下 F5 运行宏。系统会提示您指定选择：输入 1 如果只想打印奇数页，或者 2 如果只想打印偶数页。

注意：仔细检查您的输入（1 或 2），因为错误的输入可能会导致宏无法正常工作。如果您输入了无效值，宏可能会发出警告或根本不会执行任何操作。

4. 输入选择后，点击 确定第二个确认对话框将弹出，询问您是否真的要继续打印。这是防止意外打印的安全措施。

如果想在打印前取消，请在此对话框中点击 否；否则，点击 是 继续。

5. 确认后，Excel 将仅把活动工作表中的指定奇数页或偶数页发送到默认打印机。

故障排除与提示：

• 该宏适用于当前活动工作表。如果需要打印多个工作表，请为每个工作表分别运行宏。
• 在运行宏之前，请留意打印机设置——确保在 Excel 的打印对话框中选择了正确的打印机。
• 如果没有打印任何内容，请重新检查打印区域，并确保您的工作表不是空的或未正确设置为打印格式。

使用 Kutools for Excel 按需打印奇数页、偶数页或指定页面

如果您经常需要从工作表中打印奇数页、偶数页或多个特定页面，Kutools for Excel 提供了一种高效的解决方案。这种方法非常适合希望通过直观且用户友好的界面管理复杂打印任务的用户。借助 Kutools for Excel，您不仅可以选择打印所有奇数页或偶数页，还可以轻松指定任意自定义页面范围——这是 Excel 原生功能或简单宏所不支持的功能。

免费安装 Kutools for Excel 后，您可以使用其“打印指定页面”工具高效处理各种打印需求：

为此，请导航至 Kutools Plus > 打印 > 打印指定页面。此时将出现“打印指定页面”对话框，在其中可根据打印要求选择选项。

在此对话框中，您可以：

• 选择打印所有奇数页、所有偶数页或根据需要指定自定义范围，相比默认的 Excel 打印选项，提供了更大的灵活性。
• 轻松预览您的选择，以确认正在打印正确的页面并避免打印浪费。

提示：

1. 要打印一组自定义页面（例如第 1、3、5 页及第 9 至 12 页），请选择 自定义范围 并在指定字段中输入您的范围（例如， 1, 3, 5, 9-12).

2. 若要控制副本数量，只需在 份数 设置中指定所需的数量，以打印所选页面的多份副本。

3. 如果希望反向打印页面，请勾选 逆序打印 选项。这对于大打印任务特别有用，因为在打印后整理页面是一个问题。

注意事项与建议：

• 使用 Kutools 的打印功能之前，请先检查工作表的分页符和打印区域，以确保准确的结果。
• 如果要打印选定的区域，请注意隐藏的行或列可能仍会被包括在内，具体取决于您的页面设置。
• 始终使用打印预览来确认最终打印前的输出，尤其是对于大型或重要文档。
• 此方法一次只能作用于一个工作表；如有需要，可对其他工作表重复操作。

优势：Kutools for Excel 非常适合重复任务、管理复杂报表的用户，或希望尽量减少打印错误的任何人。其界面无需编码知识，比 VBA 解决方案在自定义打印场景中更加灵活。

替代方案：通过打印对话框手动打印奇数页或偶数页

如果您不想使用 VBA 或第三方工具，可以手动在 Excel 中打印奇数页或偶数页，但使用打印对话框一次只能打印一个页面范围。Excel 不支持在“页面”框中输入多个非连续页面（例如 1,3,5）。

要手动打印奇数页或偶数页：

1. 前往 文件 > 打印。
2. 在“页面”字段中，在“从”框中输入单个页面编号（例如 1）以仅打印该特定页面。
3. 点击 打印。
4. 根据需要为每个奇数页或偶数页重复此过程。

演示：使用 Kutools for Excel 按需打印奇数页、偶数页或指定页面