如何在 Excel 中將選取的欄列印在同一頁？

作者Siluvia修改日期2024-11-06

預設情況下，Excel 會將不相鄰（非連續）的選取欄列印在不同頁面上。若您希望將這些欄位列印在同一頁上，請依照下列步驟操作。

使用 VBA 程式碼列印選取的欄

您可透過 VBA 程式碼，將多個選取的欄列印於同一頁上。請依下列步驟操作：

1. 同時按下 Alt+F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗！

2. 在 Microsoft Visual Basic for Applications 視窗中，點選插入＞模組，接著將下列 VBA 程式碼複製並貼上至模組視窗中。

VBA 程式碼：列印選取的欄

Sub Print_MultiAreas()
	Dim xRg As Range
	Dim xSht As Worksheet
	Dim xArea As Range
	Dim xTxt As String
	On Error Resume Next
	xTxt      = ActiveWindow.RangeSelection.Address
	Set xRg   = Application.InputBox("Please select columns:", "Kutools for Excel", xTxt, , , , , 8)
	If xRg Is Nothing Then Exit Sub
		Set xSht = Worksheets.Add(After: = Sheets(Sheets.Count))
		For Each xArea In xRg.Areas
			xArea.Copy Destination: = xSht.Range(xArea.Address)
			xSht.Range(xArea.Address).Value = xArea.Value
		Next
		xSht.PrintPreview
		'xSht.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
		Application.DisplayAlerts = False
		xSht.Delete
		Application.DisplayAlerts = True
		xRg.Parent.Activate
	End Sub

3. 按下 F5 鍵執行程式碼，將彈出 Kutools for Excel 對話方塊。請按住 Ctrl 鍵，並逐一點選您要列印的欄位，最後點選確定按鈕。如下圖所示：

顯示用於列印的欄位選擇對話框的螢幕截圖

4. 接著會出現列印預覽視窗，點選列印按鈕即可開始列印。

注意：若部分選取的欄位無法完整容納於單一頁面，請在預覽視窗中點選「下一頁」以檢視其餘選取範圍，這些內容將分別列印在不同頁面上。

使用強大工具輕鬆列印選取的欄

若您覺得 VBA 程式碼難以操作，可試用多重選取列印精靈功能，該功能內建於 Kutools for Excel。透過此功能，您只需點選幾下，即可輕鬆將多個選取的欄列印在同一頁上。

Kutools for Excel 提供超過 300 項進階功能，簡化複雜作業，提升創造力與效率。整合 AI 功能，Kutools 能精準自動化各項任務，讓資料管理輕鬆無負擔。Kutools for Excel 的詳細資訊…… 免費試用……

1. 按住 Ctrl 鍵，逐一選取所需欄位，接著點選 KUTOOLS PLUS > 列印 > 多重選取列印精靈。

功能區中 Kutools 索引標籤內「多選區域列印精靈」選項的螢幕截圖

2. 在 列印多選區向導 – 步驟 1／3 對話方塊中，所有已選取的欄位都會顯示於清單框內，請點選完成按鈕。

Kutools「多選區域列印精靈」三步驟對話框第一步驟的螢幕截圖

3. 此時，所有選取的欄位會自動轉換為物件，並置於一張空白工作表上（預設情況下，這些欄位會垂直排列成單一欄位，您可依需求自由調整位置），接著即可開始列印工作表。

已選取的欄位作為物件提取至空白工作表以供列印的螢幕截圖

注意：若您想指定列印設定，請先在步驟 1／3 的對話方塊中點選下一步按鈕，再依照下方截圖所示設定所需選項。

Kutools「多選區域列印精靈」中列印設定對話框的螢幕截圖

Kutools for Excel－透過超過 300 項必備工具全面強化 Excel，讓您的工作更快速、更輕鬆，並運用 AI 功能實現更聰明的資料處理與高效生產力！立即取得

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多