如何在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 按钮）> 打印 来打印它。