如何在Excel中一次將打印區域設置為多個工作表？

通常，您只能在Excel中一次在一個工作表中設置打印區域，但是如果您想在一個工作簿的多個工作表中設置相同的打印區域，是否有快速的解決方法？ 現在，我將告訴您一些在多個工作表中設置相同打印區域的快速方法的詳細信息。

使用Kutools for Excel將同一打印區域設置為多個工作表

使用VBA將同一打印區域設置為多個工作表

---

使用Kutools for Excel將同一打印區域設置為多個工作表

Kutools for Excel 我一個方便的Excel加載項及其 複製頁面設置 功能可以幫助您快速將打印區域設置為多個工作表。

Excel的Kutools 包括300多個便捷的Excel工具。 30天免費試用，不受限制。 立即獲取

1.在其中一個工作表中選擇打印區域，然後單擊 頁面佈局 > 打印區 > 設置打印區域。 看截圖：

2。 點擊 企業 > 印刷工具 > 複製頁面設置。 看截圖：

3。 在裡面 複製頁面設置 對話框中，同時檢查要設置打印區域的工作表，然後單擊 片 標籤，並檢查 打印區域 僅在 頁面設置 部分。 看截圖：

4。 然後點擊 Ok 關閉對話框，然後單擊 是 在即將到來 Excel的Kutools 警告對話框，然後將選中的工作表設置為具有相同的打印區域。

單擊此處以獲取有關“複製頁面設置”的更多詳細信息。

---

使用VBA將同一打印區域設置為多個工作表

如果您對VBA感興趣，可以嘗試以下VBA。

1.在一個工作表中選擇要設置為打印區域的範圍，然後按 Alt + F11鍵 鍵打開 Microsoft Visual Basic應用程序 窗口。

2。 點擊 模塊 > 插入 插入一個 模塊 窗口，然後將下面的VBA複製到該窗口中。

VBA：在整個工作簿中設置打印區域。

Sub SetGlobalPrintArea()
'Updateby20140827
Dim xWs As Worksheet
Dim WorkRng As Range
Set WorkRng = Application.Selection
For Each xWs In Application.ActiveWorkbook.Worksheets
    xWs.PageSetup.PrintArea = WorkRng.Address
Next
End Sub

3。 點擊 跑 按鈕運行VBA，然後將工作簿中的所有工作表設置為相同的打印區域。

小提示:

如果要在選定的工作表中設置打印區域，可以執行以下操作：

1.選擇要設置為打印區域的範圍，然後按來選擇工作表 按Ctrl 您需要的鍵，然後按 Alt + F11鍵 鍵打開 Microsoft Visual Basic應用程序 窗口。

2。 點擊 模塊 > 插入 插入“模塊”窗口，然後將下面的VBA複製到該窗口中。

VBA：在選定的工作表中設置打印區域。

Sub SetSelectWsPrintArea()
'Updateby20140827
Dim xWs As Worksheet
Dim WorkRng As Range
Set WorkRng = Application.Selection
For Each xWs In Application.ActiveWindow.SelectedSheets
    xWs.PageSetup.PrintArea = WorkRng.Address
Next
End Sub