如何轻松快速删除Excel中的空白行提升工作效率
204
2024-01-08
如何在Excel的一页上打印多个选定的行？
如何在Excel的一页上打印多个选定的行？
在Excel中打印选择内容时，不连续的范围将打印在单独的页面上。 在某些情况下，我们可能只需要在一张长表的一页上打印一些选定的行/范围，但是这些选定的行/范围不是连续的。 因此，如何在Excel的一页上打印这些行/范围？ 有几种解决方案：
使用VBA在一页上打印多个选定行
在一页上打印多个选定行并复制到一个工作表
在一页上打印多个选定的行 Kutools for Excel
在Excel的一页上批量打印多个选择（所有打印区域）
Kutools for Excels 打印多项选择向导 不仅可以帮助您轻松地在同一页上打印同一工作表中的所有打印区域，而且还可以轻松地在一页上打印多个工作表中的多个范围。
全功能免费试用 30-天！
惊人的！ 在 Excel 中使用高效的选项卡，如 Chrome、Firefox 和 Safari！
每天节省50％的时间，并减少数千次鼠标单击！
在这里，我将讨论在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 按钮。
备注：本 包括行高 选项和 包括列宽 选项将复制选定范围的行高和列宽，并粘贴到目标范围中。
3.在新创建的工作表中选择单元格A1，然后单击 OK 按钮。
4.停留在目标工作表中，然后单击 Kutools > 删除 > 删除空白行 > 在活动表中.
然后出现一个对话框，显示已删除多少行。 只是关闭它。
5。 点击 文件 （或 办公按钮）> 打印 打印这些行。
Kutools for Excel - 包括 300 多个方便的 Excel 工具。 全功能免费试用 30-天，无需信用卡！ 立即行动吧!
其实 Kutools for Excel 设计 打印多选向导 在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 包括适用于Excel的300多种便捷工具，可以在30天之内免费试用。 立即下载并免费试用!
最佳办公生产力工具
将小时转化为分钟 Kutools for Excel!
准备好增强您的 Excel 任务了吗？ 利用的力量 Kutools for Excel - 您终极的节省时间的工具。 简化复杂的任务并像专业人士一样浏览数据。 以闪电般的速度体验 Excel！
为什么需要 Kutools for Excel
🛠️ 超过 300 项强大功能: Kutools 包含 300 多项高级功能，可简化您在 1500 多种场景中的工作。
📈 卓越的数据处理能力：合并单元格、删除重复项并执行高级数据转换 - 所有这些都不费吹灰之力！
⏱️ 高效的批量操作：当你可以聪明地工作时，为什么还要付出额外的努力呢？ 轻松批量导入、导出、组合和调整数据。
📊 可定制的图表和报告：访问各种附加图表并生成富有洞察力的报告。
🗄️ 强大的导航窗格：通过强大的列管理器、工作表管理器和自定义收藏夹获得优势。
📝 七种类型的下拉列表：通过各种功能和类型的下拉列表使数据输入变得轻而易举。
🎓 用户友好：对于初学者来说轻而易举，对于专家来说是一个强大的工具。
立即下载，与 Excel 一起穿越时空！
阅读更多
免费下载... 采购...
Office Tab 为 Office 带来选项卡式界面，让您的工作更轻松
在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。
在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
每天将您的工作效率提高50％，并减少数百次鼠标单击！
阅读更多
免费下载... 采购...
版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。
相关文章
推荐文章
最近发表
