在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's 复制范围 实用程序来处理它。

1.创建一个新的工作表，然后选择要从表中打印的行，然后单击 库工具 > 复制范围.

备注：持有 按Ctrl 键，您可以同时选择多个不连续的行。

2.在打开的“复制多个范围”对话框中，选中 所有类型 选项，然后单击 Ok 按钮。

备注：本 包括行高 选项和 包括列宽 选项将复制选定范围的行高和列宽，并粘贴到目标范围中。

3.在新创建的工作表中选择单元格A1，然后单击 OK 按钮。

4.停留在目标工作表中，然后单击 库工具 > 删除 > 删除空白行 > 在活动表中.

然后出现一个对话框，显示已删除多少行。 只是关闭它。

5。 点击 文件 （或 办公按钮）> 打印 打印这些行。

实际上用于Excel设计的Kutools 打印多选向导 在Excel中一起打印多个范围。

1。 点击 企业 > 印刷 > 打印多选向导 打开“打印多个选择向导”。

2.在打开的“打印多项选择向导”中，单击 地址 按键  添加要一起打印的行，然后单击 完成 按钮。

笔记：

（1）点击 地址 按键 ，您可以在一个工作表中选择多个非连续范围，方法是按住 按Ctrl 键，然后一一选择；

（2）从 打印范围 列表中，只需选择此范围/行，然后单击 删除 按键.

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

3.选定的行/范围已作为链接的图片粘贴到新工作表中。 继续点击 文件 （或 办公按钮）> 打印 打印。