跳到主要内容
 

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

作者:凯莉 最后修改时间:2024-08-09

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

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

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

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


使用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

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

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

运行 VBA 代码后选择要打印的多行的屏幕截图

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


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

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

Kutools for Excel - 包含 300 多种 Excel 必备工具。享受永久免费的 AI 功能! 现在下载!

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

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

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

在“复制多个区域”对话框中选中“全部”选项的屏幕截图

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

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

选择目标单元格以粘贴所选行的屏幕截图

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

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

从粘贴的数据范围中删除空白行的屏幕截图

5。 点击 文件 (或 办公按钮)> 打印 打印这些行。

Kutools for Excel - 使用超过 300 种必备工具增强 Excel 性能。享受永久免费的 AI 功能! 立即行动吧!


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

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

Kutools for Excel - 包含 300 多种 Excel 必备工具。享受永久免费的 AI 功能! 现在下载!

1。 点击 Kutools 加 > 印刷 > 打印多选向导 打开“打印多个选择向导”。

2.在打开的“打印多项选择向导”中,单击 添加 按键 添加按钮的屏幕截图 添加要一起打印的行,然后单击 完成 按钮。

确认选定行的屏幕截图

笔记:

(1)点击 添加 按键 添加按钮的屏幕截图,您可以在一个工作表中选择多个非连续范围,方法是按住 按Ctrl 键,然后一一选择;

(2)从 打印范围 列表中,只需选择此范围/行,然后单击 删除 按键删除按钮的屏幕截图.

(3)此实用程序不支持打印整行和整列,例如 $ 4:$ 4,或整个列 $ B:$ B.

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

Kutools for Excel - 使用超过 300 种必备工具增强 Excel 性能。享受永久免费的 AI 功能! 立即行动吧!


演示:在Excel的一页上打印多个选定的行

 
Kutools for Excel:超过 300 种便捷工具触手可及!享受永久免费的 AI 功能! 立即下载!

最佳办公生产力工具

🤖 Kutools 人工智能助手:基于以下内容彻底改变数据分析: 智能执行   |  生成代码  |  创建自定义公式  |  分析数据并生成图表  |  调用 Kutools 函数...
热门特色: 查找、突出显示或识别重复项   |  删除空白行   |  合并列或单元格而不丢失数据   |   不使用公式进行四舍五入 ...
超级查询: 多条件VLookup    多值VLookup  |   跨多个工作表的 VLookup   |   模糊查询 ....
高级下拉列表: 快速创建下拉列表   |  依赖下拉列表   |  多选下拉列表 ....
列管理器: 添加特定数量的列  |  移动列  |  切换隐藏列的可见性状态  |  比较范围和列 ...
特色功能: 网格焦点   |  设计图   |   大方程式酒吧    工作簿和工作表管理器   |  资源库 (自动文本)   |  日期选择器   |  合并工作表   |  加密/解密单元格    按列表发送电子邮件   |  超级筛选   |   特殊过滤器 (过滤粗体/斜体/删除线...)...
前 15 个工具集12 文本 工具 (添加文本, 删除字符,...)   |   50+ 图表 类型 (甘特图,...)   |   40+ 实用 公式 (根据生日计算年龄,...)   |   19 插入 工具 (插入二维码, 从路径插入图片,...)   |   12 转化 工具 (小写金额转大写, 货币兑换,...)   |   7 合并与拆分 工具 (高级组合行, 分裂细胞,...)   |   ... 和更多

使用 Kutools for Excel 增强您的 Excel 技能,体验前所未有的效率。 Kutools for Excel 提供了 300 多种高级功能来提高生产力并节省时间。  单击此处获取您最需要的功能...


Office Tab 为 Office 带来选项卡式界面,让您的工作更加轻松

  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
  • 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
  • 每天将您的工作效率提高50%,并减少数百次鼠标单击!