如何在Excel的一页上打印多个选定的行？-英雄云拓展知识分享

在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:", "tool", 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.现在会弹出一个tool对话框。 请选择要打印的多行，然后单击 OK 按钮以打印这些行。

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

如果我们可以复制这些不连续的行并将其作为连续范围粘贴到其他工作表中，则可以轻鬆地将它们打印在一页上。 该方法将介绍tool的 复制范围 实用程序来处理它。

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

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

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

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

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

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

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

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

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

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

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

笔记：

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

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

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

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