如何在Excel的一页上打印多个选定的行？

网友投稿 280 2024-01-08

如何在Excel的一页上打印多个选定的行？

在Excel中打印选择内容时，不连续的范围将打印在单独的页面上。在某些情况下，我们可能只需要在一张长表的一页上打印一些选定的行/范围，但是这些选定的行/范围不是连续的。因此，如何在Excel的一页上打印这些行/范围？有几种解决方案：

使用VBA在一页上打印多个选定行

在一页上打印多个选定行并复制到一个工作表

在一页上打印多个选定的行 Kutools for Excel

在Excel的一页上批量打印多个选择（所有打印区域）

Kutools for Excels 打印多项选择向导 不仅可以帮助您轻松地在同一页上打印同一工作表中的所有打印区域，而且还可以轻松地在一页上打印多个工作表中的多个范围。

全功能免费试用 30-天！

惊人的！在 Excel 中使用高效的选项卡，如 Chrome、Firefox 和 Safari！ 每天节省50％的时间，并减少数千次鼠标单击！

使用VBA在一页上打印多个选定行

在这里，我将讨论在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

Copy

3。按 F5 键或单击运行按钮以运行此VBA。

4.现在一个 Kutools for Excel 弹出对话框。请选择您要打印的多行，然后单击 OK 按钮以打印这些行。

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

在一页上打印多个选定行并复制到一个工作表

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

Kutools for Excel - 包括 300 多个方便的 Excel 工具。全功能免费试用 30-天，无需信用卡！ 立即免费试用！

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

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

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

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