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

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

使用 Kutools for Excel 設置多個工作表的相同打印區域

使用 VBA 設置多個工作表的相同打印區域

使用 Kutools for Excel 設置多個工作表的相同打印區域

Kutools for Excel 是一款實用的 Excel 增益集，其複製頁面配置功能可以幫助您快速為多個工作表設置打印區域。

Kutools for Excel 包含 300 多種實用的 Excel 工具。免費試用 30 天無限制。立即獲取

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

2. 點擊 Kutools Plus > 列印 > 複製頁面配置。

3. 在「複製頁面配置」對話框中，勾選要設置打印區域的工作表，然後點擊工作表標籤，並在頁面設置部分僅勾選打印區域。參見截圖：

4. 然後點擊 確定 關閉對話框，並在隨後出現的 Kutools for Excel 警告對話框中點擊 是，然後所選工作表會立即設置相同的打印區域。

點擊此處了解更多關於複製頁面配置的詳情。

使用 VBA 設置多個工作表的相同打印區域

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

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

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 For Applications 窗口。

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