如何在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設計了打印多選向導 來一起打印多個範圍。

1. 點擊Kutools Plus > 列印 > 打印多選向導 以打開打印多選向導。

2. 在打開的打印多選向導中，點擊 添加 按鈕  以添加您要一起打印的行，然後點擊 完成 按鈕。

注意：

(1) 點擊 添加 按鈕後 ，您可以在一個工作表中按住 Ctrl 鍵並逐一選擇多個不相鄰的範圍；

(2) 要從 要打印的範圍 列表中移除某個範圍/行，只需選擇該範圍/行並點擊 刪除 按鈕.

(3) 此工具不支持打印整個行和列，例如整行 $4:$4或整列$B:$B。

3. 選定的行/範圍已被粘貼為鏈接圖片到一個新的工作表中。繼續點擊文件（或Office按鈕）> 打印 以打印它。