如何快速打印每張紙的首頁？

如果您的工作簿包含多個工作表，則只需要打印每張工作表的第一頁即可。 實際上，您可以在打印設置中將頁面1設置為1，然後一一打印。 但是，這將很麻煩且耗時，是否有任何快速簡便的方法可讓您在Excel中打印每個選項卡的所有首頁？

使用VBA代碼打印每張紙的第一頁

Kutools for Excel一鍵打印每張紙的第一頁

---

使用VBA代碼打印每張紙的第一頁

下面的VBA代碼可以幫助您同時快速打印每個工作表的所有第一頁。 請執行以下操作：

1。 按住 ALT + F11 鍵，然後打開 Microsoft Visual Basic for Applications窗口.

2。 點擊 插入 > 模塊，然後將以下代碼粘貼到 模塊窗口。

VBA代碼：打印每張紙的第一頁

Sub PrintAllFirstPage()
'Update 20140924
Dim xWs As Worksheet
For Each xWs In Application.ActiveWorkbook.Worksheets
    xWs.PrintOut from:=1, To:=1
Next
End Sub

3. 然後按 F5 鍵以運行此代碼，並且每個選項卡的所有第一頁將同時打印。

---

Kutools for Excel一鍵打印每張紙的第一頁

如果你有 Excel的Kutools 已安裝，其中有多個打印工具，您可以使用 打印每個工作表的第一頁 功能可打印每張紙的第一頁。

後 免費安裝 Kutools for Excel，請執行以下操作：

啟用僅要打印每張紙第一頁的工作簿，然後單擊“確定”。 Kutools 加 > 打印 > 打印每個工作表的第一頁，然後a Excel的Kutools 彈出以再次確認。 看截圖：

然後，單擊後將打印每張紙的所有首頁。

---

相關文章：

如何打印帶有羅馬數字頁碼的頁面？

如何在Excel中打印多個工作簿？

如何在Excel中的一頁上打印長列？

如何以工作表的相反順序打印頁面？