如何在 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 按钮）中的打印进行打印。