如何在 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，在彈出的 Kutools for Excel 對話框中輸入 1 以打印所有奇數頁，或輸入 2 以打印所有偶數頁。請參閱截圖：

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 行？