在Excel的一頁上批量打印多個選擇（所有打印區域）

在這裡，我將討論在Excel中使用VBA在一頁上打印多個選定行的問題。 請執行以下操作：

1。 按 其他 + 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對話框。 請選擇要打印的多行，然後單擊 OK 按鈕以打印這些行。

備註：持有 按Ctrl 鍵，您可以同時選擇多個不相鄰的行。

如果我們可以復制這些不連續的行並將其作為連續範圍粘貼到其他工作表中，則可以輕鬆地將它們打印在一頁上。 該方法將介紹Kutools for Excel的 複製範圍 實用程序來處理它。

1.創建一個新的工作表，然後從表中選擇要打印的行，然後單擊 庫工具 > 複製範圍.

備註：持有 按Ctrl 鍵，您可以同時選擇多個不連續的行。

2.在打開的“複製多個範圍”對話框中，選中 全部 選項，然後單擊 Ok 按鈕。

備註：“ 包括行高 選項和 包括列寬 選項將復制選定範圍的行高和列寬，並粘貼到目標範圍中。

3.在新創建的工作表中選擇單元格A1，然後單擊 OK 按鈕。

4.停留在目標工作表中，然後單擊 庫工具 > 刪除 > 刪除空白行 > 在活動表中.

然後出現一個對話框，顯示已刪除多少行。 只是關閉它。

5。 點擊 文件 辦公按鈕）> 列印 打印這些行。

實際上是用於Excel設計的Kutools 打印多選嚮導 在Excel中一起打印多個範圍。

1。 點擊 企業 > 打印 > 打印多選嚮導 打開“打印多個選擇嚮導”。

2.在打開的“打印多項選擇嚮導”中，單擊 加入 按鍵  添加要一起打印的行，然後單擊 完 按鈕。

筆記：

（1）點擊 加入 按鍵 ，您可以在一個工作表中選擇多個非連續範圍，方法是按住 按Ctrl 鍵，然後一一選擇；

（2）從 打印範圍 列表中，只需選擇此範圍/行，然後單擊 刪除 按鍵.

（3）此實用程序不支持打印整行和整列，例如 $ 4：$ 4，或的整列 $ B：$ B.

3.選定的行/範圍已作為鏈接的圖片粘貼到新工作表中。 繼續點擊 文件 辦公按鈕）> 列印 打印。