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

网友投稿 325 2024-01-08

如何仅在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

Copy

3。按 F5 执行VBA，然后输入 1 打印所有奇数页，或输入 2 打印弹出的所有偶数页 Kutools for Excel

对话。看截图：

4。点击 OK，只有奇数页或偶数页正在打印。

打印特定页面 Kutools for Excel

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

Kutools for Excel, 与超过 300 方便的功能，使您的工作更加轻松。

免费下载免费全功能 30 天

安装后 Kutools for Excel, 请按以下步骤:(免费下载 Kutools for Excel 现在！）

点击 Kutools 加 > 印刷 > 打印特定页面，然后在弹出的对话框中选中 奇数页 or 偶数页

您需要的选项。看截图：

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

备注

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

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

仅打印奇数/偶数/特定页面
打印每个工作表的第一页 Kutools for Excel

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