KutoolsforOffice — 一套方案，五大工具。事半功倍。

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

作者孙修改日期
Word 打印选项的截图，用于打印奇数页或偶数页
在准备多页文档时，Word 中通常可以选择仅打印奇数页或偶数页，如附图所示。这种选择性打印功能在需要双面打印（手动双面）或希望节省纸张、管理大型文档时尤为实用。

然而，Excel 的“打印”对话框并未提供直接打印仅奇数页或仅偶数页的简便方式，这在需要审阅、分发或归档长工作表中特定页面的各种办公或数据报告场景中可能带来不便。

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

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

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

在 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

显示 VBA 编辑器的截图，其中包含用于在 Excel 中打印奇数页或偶数页的代码

复制和粘贴代码时，请务必避免覆盖您可能需要的现有宏。

3. 按 F5 运行宏，系统将弹出提示，要求您指定选择：若要仅打印奇数页，请输入 1；若要打印偶数页，请输入 2.
显示在 Excel 中选择奇数页或偶数页的输入选项的截图

注意：请仔细核对您的输入（1 或 2），输入错误可能导致宏无法按预期运行。若输入了无效值，宏可能会发出警告，甚至无响应。

4. 输入选择后，单击确定，系统将弹出第二个确认对话框，询问您是否确实要继续打印。此机制可有效防止误操作打印。
在 Excel 中选择奇数页或偶数页后显示打印确认提示的截图

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

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

故障排除与提示：

  • 此宏仅适用于当前活动的工作表。如需打印多个工作表，请分别为每个工作表运行该宏。
  • 运行宏前，请务必留意打印机设置——确保已在 Excel 的“打印”对话框中选中正确的打印机。
  • 如果未打印出任何内容，请重新检查打印区域，确保工作表非空白且格式适合打印。

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

如果您经常需要从工作表中打印奇数页、偶数页或多个指定页面，Kutools for Excel 为您提供了一种高效解决方案。该功能专为希望借助更直观、用户友好的界面轻松管理复杂打印任务的用户而设计。借助 Kutools for Excel，您不仅能一键打印全部奇数页或全部偶数页，还可灵活指定任意自定义页码范围——这一强大功能远超 Excel 原生选项或简单宏所能实现的效果。

Kutools for Excel，配备人工智能🤖，提供 300 多项实用功能，助您简化工作。

免费安装 Kutools for Excel 后，您即可使用其批量打印指定页工具高效应对多样化的打印需求：

为此，请依次导航至 KUTOOLS PLUS > 打印 > 批量打印指定页。此时将弹出批量打印指定页对话框，您可根据打印需求选择相应选项。

功能区上 Kutools Plus 选项卡中“打印指定页面”选项的截图箭头Kutools for Excel“打印指定页面”对话框及设置选项的截图

在此对话框中，您可以：

  • 根据您的需求，可选择打印所有奇数页、所有偶数页，或指定自定义页码范围，灵活性远超 Excel 默认的打印选项。
  • 轻松预览所选内容，确保打印的是正确页面，避免纸张浪费。

提示：

1. 要打印自定义页面组合（如 1、3、5 以及 9 至 12），请选择自定义范围，并在指定字段中输入页码范围（例如）1、3、5、9-12）。
Kutools 在 Excel 中按自定义范围打印特定页面的选项截图

2. 要控制批量复制的份数，只需在份数设置中指定所需数量，即可轻松打印所选页面的多份副本。
设置打印份数的截图

3. 如果您希望反向打印工作表，请勾选逆序打印选项。对于大型打印任务，此功能特别实用，可省去打印后手动整理页面的麻烦。
“反向顺序打印”设置的截图

注意事项与建议：

  • 在使用 Kutools 的打印功能前，请先检查工作表的分页符和打印区域，确保输出结果准确无误。
  • 如果您正在打印所选区域，请注意隐藏的行或列仍可能被包含在内，具体取决于您的页面设置。
  • 正式打印前，务必使用“打印预览”功能确认输出效果，特别是针对大型或重要文档。
  • 此方法一次仅适用于一个工作表；如需处理其他工作表，请重复上述操作。

优势：Kutools for Excel 非常适合需要处理重复性任务、复杂报表，或希望最大限度减少打印错误的用户。其界面无需编程知识，在自定义打印场景下比 VBA 解决方案灵活得多。

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

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

手动打印奇数页或偶数页的方法如下：

  1. 转到文件 > 打印。
  2. 在页码字段中，于“从”框内输入单个页码（例如 1），即可仅打印该特定页面。
  3. 单击打印。
  4. 根据需要，为每个奇数页或偶数页重复此操作。
注意：此方法仅适用于打印少量页面。如果您需要打印大量奇数页或偶数页，建议使用上述任一方法自动完成打印过程。

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

 
Kutools for Excel：超过 300 款实用工具触手可及！畅享 AI 驱动的功能，让工作更智能、更高效！立即下载！

最佳办公效率工具

🤖KUTOOLS AI 助手：基于以下内容革新数据分析：智能执行   |  生成代码|  创建自定义公式  |  数据分析及生成图表|  调用 Kutools Functions……
热门功能：查找、高亮或标记重复项   |  删除空白行   |  合并列或单元格且不丢失数据   |  不使用公式的四舍五入……
高级 LOOKUP：多条件 VLookup  |  多值 VLookup  |   跨多工作表 VLookup   |   模糊查找……
高级下拉列表：快速创建下拉列表   |  级联下拉列表   |  多选下拉列表……
列管理器：添加指定数量的列|移动列|切换隐藏列的可见性状态|比较区域与列……
特色功能：网格聚焦   |  设计视图   |增强编辑栏   | 工作簿和表管理器   |  资源库（自动文本）|  日期提取   |  汇总工作表  |  加密/解密单元格   | 按列表发送邮件   |  超级筛选   |   特殊筛选（筛选粗体单元格/斜体/删除线……） ......
精选 15 工具集：12 文本工具（添加文本，删除特定字符，……）|   50+ 图表 类型（甘特图，……）|   40+ 实用公式（基于生日计算年龄，……）|   19 插入工具（插入二维码，从路径插入图片，……）|   12 转换工具（小写金额转大写，汇率转换，……）|   7 合并和拆分工具（高级合并行，分割单元格，……）|……更多
在您的首选语言中使用 Kutools – 支持英语、西班牙语、德语、法语、中文及 40+ 种其他语言！

使用 Kutools for Excel 大幅提升您的 Excel 技能，体验前所未有的高效。Kutools for Excel 提供 300 多项高级功能，助您提升生产力、节省时间。立即点击此处，获取您最需要的功能……

Office Tab 为 Office 带来标签式界面，让您的工作更轻松

  • 在 Word、Excel、PowerPoint、Publisher、Access、Visio 和 Project 中启用标签式编辑和阅读。
  • 在同一个窗口的新标签页中打开并创建多个文档，而非在新窗口中。
  • 将您的工作效率提升 50%，每天减少数百次鼠标点击！

所有 Kutools 插件，一个安装程序

Kutools for Office 套件捆绑了适用于 Excel、Word、Outlook 和 PowerPoint 的插件以及 Office Tab Pro，非常适合需要跨多个 Office 应用高效协作的团队。

ExcelWordOutlookTabsPowerPoint
  • 一体化套件— Excel、Word、Outlook 和 PowerPoint 插件 + Office Tab Pro
  • 一个安装程序，一个许可证— 几分钟内完成设置（支持 MSI）
  • 协同效果更佳— 在多个 Office 应用中实现高效协同
  • 30 天全功能试用— 无需注册，无需信用卡
  • 超值之选— 比单独购买插件更省钱