如何在 Excel 中將多個選取的列印在同一頁面上？

本文將介紹如何在 Excel 中運用 VBA，將多個選取的列整合列印於單一頁面上。請依照下列步驟操作：

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

2. 點擊插入＞ 模組，即可開啟新模組視窗，並將下方的 VBA 程式碼貼上其中。

VBA：在 Excel 中將多個選取的列列印於單一頁面

Sub Extract_to_Print()
Dim Rg As Range, Rg1 As Range, Rg2 As Range
Dim xAddress As String
Dim xSht As Worksheet
Dim I As Long
Dim xScreenUpdate As Boolean
Dim xAlert As Boolean
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set Rg = Application.InputBox("Please select ranges you will print:", "Kutools for Excel", xAddress, , , , , 8)
If Rg Is Nothing Then Exit Sub
xScreenUpdate = Application.ScreenUpdating
xAlert = Application.DisplayAlerts
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xSht = ThisWorkbook.Worksheets.Add
I = 1
For Each Rg1 In Rg.Areas
Rg1.Copy xSht.Range("A" & I)
I = I + Rg1.Rows.Count
Next
xSht.PrintOut
xSht.Delete
Application.ScreenUpdating = xScreenUpdate
Application.DisplayAlerts = xAlert
End Sub

3. 按下 F5 鍵，或點擊執行按鈕，立即執行此 VBA！

4. 此時會彈出一個 Kutools for Excel 對話方塊。請選取您要列印的多個欄位，然後點擊確定按鈕，立即完成列印！

注意：按住 Ctrl 鍵，即可同時選取多個不相鄰的列。

若能將這些不連續的列複製並貼到其他工作表中，形成連續範圍，就能輕鬆將它們列印於單一頁面！本方法將介紹 Kutools for Excel 的多區域複製功能，助您快速解決此問題。

1. 建立一個新工作表，接著從您的表格中選取要列印的列，然後點擊 Kutools > 範圍 > 多區域複製。

注意：按住 Ctrl 鍵，即可同時選取多個不連續的列。

2. 在開啟的多區域複製對話方塊中，勾選全部選項，再點擊確定按鈕。

注意：包括行高與包括列寬選項會將所選區域的行高與列寬一併複製，並貼上至目標範圍中。

3. 選取新建立工作表中的儲存格 A1，然後點擊確定按鈕。

4. 停留在目標工作表中，點擊 Kutools > 刪除 > 刪除空白行 > 當前工作表。

接著會彈出一個對話方塊，顯示已刪除的列數，直接關閉即可。

5. 點擊檔案（或 ）Office 按鈕）> 列印，即可列印這些欄位。

事實上，Kutools for Excel 特別設計了多重選取列印精靈，讓您在 Excel 中一次輕鬆列印多個範圍！

1. 點擊 KUTOOLS PLUS > 列印 > 多重選取列印精靈，即可開啟多重選取列印精靈。

2. 在開啟的多重選取列印精靈中，點擊新增按鈕，即可新增多個您要一併列印的範圍，再點擊完成按鈕。

注意事項：

（1）點擊新增按鈕後，您可按住 Ctrl 鍵，逐一選取同一工作表中的多個不連續範圍；

（2）若要從要列印的範圍清單中移除某個範圍／列，只需選取該範圍／列，然後點擊刪除按鈕。

（3）此功能不支援列印整行與整欄，例如整行的 $4：$4 或整欄的 $B:$B。

3. 所選取的列／範圍已作為連結圖片貼到一個新工作表中。請點擊檔案（或 ）Office 按鈕）> 列印，立即進行列印！