跳到主要内容

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

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

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

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

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

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

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

广告打印选择项2


在这里,我将讨论在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 按钮以打印这些行。

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


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

Kutools for Excel - 包含 300 多个 Excel 基本工具。 享受全功能 30 天免费试用,无需信用卡! 现在下载!

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

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

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

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

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

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

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

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

Kutools for Excel - 使用 300 多种基本工具增强 Excel 功能。 享受全功能 30 天免费试用,无需信用卡! 立即行动吧!


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

Kutools for Excel - 包含 300 多个 Excel 基本工具。 享受全功能 30 天免费试用,无需信用卡! 现在下载!

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

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

笔记:

(1)点击 地址 按键 ,您可以在一个工作表中选择多个非连续范围,方法是按住 按Ctrl 键,然后一一选择;

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

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

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

Kutools for Excel - 使用 300 多种基本工具增强 Excel 功能。 享受全功能 30 天免费试用,无需信用卡! 立即行动吧!


Kutools for Excel:超过 300 个方便的工具触手可及! 立即开始 30 天免费试用,没有任何功能限制。 立即下载!

最佳办公生产力工具

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

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

kte选项卡201905


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

  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
  • 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
  • 每天将您的工作效率提高50%,并减少数百次鼠标单击!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations