如何在Excel中将多个选定区域打印到一页上？

如果您的工作表包含大量数据，而现在您希望将一些非连续的选定区域打印到一页上，这样可以节省很多纸张。Excel提供了“设置打印区域”功能，让我们可以一次性打印多个选定区域，但每个选定区域将会被打印在单独的页面上。本文将讨论如何将多个非连续选定区域打印到一页上。

使用VBA代码将一个工作表中的多个选定区域打印到一页上

使用Kutools for Excel将一个或多个工作表中的多个选定区域打印到一页上

使用VBA代码将一个工作表中的多个选定区域打印到一页上

要将一个工作表中的多个选定的非连续区域打印到一页上，以下VBA代码可能会对您有所帮助，请按照以下步骤操作：

1. 按住Ctrl键选择要打印的区域。

2. 按住ALT + F11键，打开Microsoft Visual Basic for Applications窗口。

3. 单击“插入”> 模块，然后将以下代码粘贴到 模块窗口中。

VBA代码：将多个选定区域打印到一页上

Sub PrintOutRange()
'Updateby Extendoffice
Dim xRng1 As Range
Dim xRng2 As Range
Dim xNewWs As Worksheet
Dim xWs As Worksheet
Dim xIndex As Long
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xWs = ActiveSheet
Set xNewWs = Worksheets.Add
xWs.Select
xIndex = 1
For Each xRng2 In Selection.Areas
    xRng2.Copy
    Set xRng1 = xNewWs.Cells(xIndex, 1)
    xRng1.PasteSpecial xlPasteValues
    xRng1.PasteSpecial xlPasteFormats
    xIndex = xIndex + xRng2.Rows.Count
Next
xNewWs.Columns.AutoFit
xNewWs.PrintOut
xNewWs.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

4. 然后按F5键运行此代码，所选区域将立即打印，并且它们将被打印到单个页面上。

使用Kutools for Excel将一个或多个工作表中的多个选定区域打印到一页上

上述代码只能帮助您打印来自一个工作表的选定区域，如果您想将多个工作表中的多个选定区域打印到一页上，上述代码将不起作用。请不要担心，这里我可以向您介绍一个方便的工具——Kutools for Excel，通过其“打印多个选定区域向导”功能，您可以一次性将一个或多个工作表中的选定区域打印到一页上。

安装Kutools for Excel后，请按照以下步骤操作：

1. 单击Kutools Plus > 打印 > 打印多个选定区域向导，参见截图：

2在 打印多个选定区域向导中，点击 按钮以选择并添加要打印的区域到“要打印的区域”列表框中（您可以从一个或多个工作表中选择区域），点击 按钮可移除不需要的区域，参见截图：

3. 将选定区域添加到列表框后，请单击“下一步>>”按钮进入向导的第二步，根据需要指定打印设置，并可以通过勾选“在每个要打印的区域之间添加一个空行”选项，在选定区域之间添加一个空行，参见截图：

4. 继续单击“下一步>>”按钮；在向导的第三步中，指定对于临时工作表的操作，您可以激活工作表但不打印、打印工作表并保留它或者打印工作表并删除它。参见截图：

5. 单击“完成”按钮，所有选定区域都将作为链接图片对象粘贴到新工作表中。并且您可以在工作表中拖动和重新排列它们。参见截图：

6. 当您打印这个新工作表时，这些区域将根据需要打印到一个单独的页面上。

点击了解更多关于此“打印多个选定区域向导”功能的信息。

演示：使用Kutools for Excel将一个或多个工作表中的多个选定区域打印到一页上