KutoolsforOffice — 一套方案,五大工具。事半功倍。

如何打印不含填充颜色的工作表?

作者Xiaoyang修改日期

在 Excel 中,通常会使用各种颜色对单元格数据进行格式设置,以突出重要信息、区分数据类别,或仅是为了让大型数据集更易于浏览。然而,当您将工作表发送至打印机时,所有背景填充色、彩色字体及其他格式都会按照屏幕显示效果如实打印出来,如下图所示:

doc-print-black-white1

使用这些颜色打印会消耗大量墨水或碳粉,这在您仅需一份简单的单色打印稿用于审阅或分发时,可能并不理想。为解决这一问题,Excel 提供了多种方法,助您轻松生成不含填充颜色的打印版本。这些方案不仅能帮您节省墨水、提升可读性,还能确保报告呈现专业而简洁的外观。本文将为您介绍几种实用技巧,方便您根据实际需求选择最适合的方式,高效打印无填充色的工作表。

目录


在 Excel 中打印不含填充颜色的工作表

Excel 内置的打印设置提供了一个“单色打印”选项,可忽略所有填充颜色,以黑白模式打印全部内容。这是一种简单直接的方法,特别适合在不更改实际数据格式的前提下,快速切换彩色与黑白打印。不过,该功能存在一定限制:“单色打印”作用于整个工作表,无法为特定区域保留原有颜色格式。此方法非常适合用于报告、分析或财务文档等场景,既能有效节省墨水,又能确保打印输出简洁易读。

如何使用单色打印打印选项:

1. 激活要打印的工作表。

2. 然后点击页面布局选项卡中的功能区,再点击页面设置组右下角的小页面设置按钮,即可打开页面设置对话框。(请参见下方截图。)

doc-print-black-white2

3. 在页面设置对话框中,切换到工作表选项卡,然后勾选打印部分中位于单色打印下方的复选框。(请参见下方截图。)此选项可让 Excel 忽略所有单元格颜色(包括背景填充、字体颜色和边框颜色),并严格以单色打印工作表。

doc-print-black-white3

4。(可选但推荐)在打印预览对话框中,点击页面设置,即可查看打印时工作表的显示效果。

doc-print-black-white4

5. 单击确定确认设置,然后照常打印工作表。打印输出将省略所有彩色单元格背景及依赖颜色的功能(例如使用条件格式填充的内容),仅保留文本、数字、边框及其他非颜色格式。

注意:此方法适用于大多数标准打印需求,操作快捷简便。但若您需要更精细的控制(例如仅移除特定区域的填充颜色,或让某些区域以灰度阴影呈现),请考虑采用以下其他解决方案。


VBA 代码 —— 打印前临时移除填充颜色

有时,您可能希望打印不含任何填充颜色的工作表,但内置的“单色打印”选项未必能满足需求——尤其是当您需要将此设置应用于特定区域,或确保某些形状和图表元素也以无填充方式打印时。此时,您可借助 VBA 宏,在打印前临时移除所有单元格的填充颜色,并在打印完成后立即恢复原状。这一方法提供高度自定义能力,特别适合处理复杂工作表或自动化重复打印任务的高级用户。

优势:该解决方案提供极为精细的控制——您不仅能自由选择要影响的工作表区域,还可进一步自定义代码,以完美适配特定工作表或工作簿的功能。

劣势:需启用宏,且用户应熟悉 VBA 编辑器操作。在共享工作簿或高度监管的环境中,可能不适用于广泛使用宏。

1. 打开您的工作簿,按 Alt + F11 以打开 Microsoft Visual Basic for Applications 窗口。在 VBA 窗口中,单击插入 > 模块 以创建新模块,然后将以下代码粘贴到该模块中:

Sub PrintWithoutFillColor()
    Dim rng As Range
    Dim arrColors() As Variant
    Dim i As Long, j As Long
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    Set rng = Application.InputBox("Select the range to print (leave blank for entire sheet):", xTitleId, Selection.Address, Type:=8)
    
    If rng Is Nothing Then
        Set rng = ActiveSheet.UsedRange
    End If
    
    ' Store the current fill colors
    ReDim arrColors(1 To rng.Rows.Count, 1 To rng.Columns.Count)
    
    For i = 1 To rng.Rows.Count
        For j = 1 To rng.Columns.Count
            arrColors(i, j) = rng.Cells(i, j).Interior.Color
            rng.Cells(i, j).Interior.ColorIndex = xlNone
        Next j
    Next i
    
    ' Show Print Preview
    ActiveSheet.PrintPreview
    
    ' Restore fill colors
    For i = 1 To rng.Rows.Count
        For j = 1 To rng.Columns.Count
            rng.Cells(i, j).Interior.Color = arrColors(i, j)
        Next j
    Next i
End Sub

2. 粘贴代码后,关闭 VBA 编辑器。要运行宏,请返回 Excel,按 Alt + F8 打开“宏”对话框,选择 PrintWithoutFillColor,然后单击运行。出现提示时,请选择要打印且不含填充颜色的目标区域;若未选择区域而直接单击“确定”,则默认包含工作表上的整个已用区域。宏将自动移除所选区域的填充颜色、打开打印预览,并在完成后恢复原始颜色,最大限度降低意外数据丢失或格式被误改的风险。

注意:此 VBA 代码仅临时移除填充颜色中的选择区域。其他颜色格式(例如使用条件格式填充颜色、字体颜色或边框颜色)仍会出现在打印输出中。

提示:若在超大区域运行此宏,可能需要数秒时间。如需同时移除图表或图形对象的填充颜色,则须进一步自定义 VBA 代码。运行或编辑宏前,请务必先保存您的工作。


故障排除与提示:

  • 如果打印输出中仍有颜色,请确保您的打印机设置(Excel 外部)未覆盖“黑白”或“单色”选项。
  • 打印前务必预览文档,避免浪费纸张和墨水。
  • 如果您经常需要以单色方式打印,建议为打印用途保存一份工作簿副本。

总结:根据您的需求,可选择 Excel 内置的黑白打印选项(适用于整个工作表),或通过 VBA 实现自动化、临时的格式调整,以打印不含填充颜色的内容。选择最适合您场景的方法,在节省墨水、操作便捷性与打印布局控制之间取得理想平衡。


相关文章:

如何在 Excel 中批量打印多个工作簿?

如何在 Excel 中打印指定范围?

如何在 Excel 中快速打印当前页面?

如何在 Excel 中将一整列较长的内容打印到一页上?

如何在 Excel 中设置每页都重复打印标题行(首行)?


最佳办公效率工具

🤖KUTOOLS AI 助手:基于以下内容革新数据分析:智能执行   |  生成代码|  创建自定义公式  |  数据分析及生成图表|  调用 Kutools Functions……
热门功能查找、高亮或标记重复项   |  删除空白行   |  合并列或单元格且不丢失数据   |  不使用公式的四舍五入……
高级 LOOKUP多条件 VLookup  |  多值 VLookup  |   跨多工作表 VLookup   |   模糊查找……
高级下拉列表快速创建下拉列表   |  级联下拉列表   |  多选下拉列表……
列管理器添加指定数量的列|移动列|切换隐藏列的可见性状态|比较区域与列……
特色功能网格聚焦   |  设计视图   |增强编辑栏   | 工作簿和表管理器   |  资源库(自动文本)|  日期提取   |  汇总工作表  |  加密/解密单元格   | 按列表发送邮件   |  超级筛选   |   特殊筛选(筛选粗体单元格/斜体/删除线……) ......
精选 15 工具集12 文本工具添加文本删除特定字符,……)|   50+ 图表 类型甘特图,……)|   40+ 实用公式基于生日计算年龄,……)|   19 插入工具插入二维码从路径插入图片,……)|   12 转换工具小写金额转大写汇率转换,……)|   7 合并和拆分工具高级合并行分割单元格,……)|……更多
在您的首选语言中使用 Kutools – 支持英语、西班牙语、德语、法语、中文及 40+ 种其他语言!

使用 Kutools for Excel 大幅提升您的 Excel 技能,体验前所未有的高效。Kutools for Excel 提供 300 多项高级功能,助您提升生产力、节省时间。立即点击此处,获取您最需要的功能……


Office Tab 为 Office 带来标签式界面,让您的工作更轻松

  • 在 Word、Excel、PowerPoint、Publisher、Access、Visio 和 Project 中启用标签式编辑和阅读
  • 在同一个窗口的新标签页中打开并创建多个文档,而非在新窗口中。
  • 将您的工作效率提升 50%,每天减少数百次鼠标点击!

所有 Kutools 插件,一个安装程序

Kutools for Office 套件捆绑了适用于 Excel、Word、Outlook 和 PowerPoint 的插件以及 Office Tab Pro,非常适合需要跨多个 Office 应用高效协作的团队。

ExcelWordOutlookTabsPowerPoint
  • 一体化套件— Excel、Word、Outlook 和 PowerPoint 插件 + Office Tab Pro
  • 一个安装程序,一个许可证— 几分钟内完成设置(支持 MSI)
  • 协同效果更佳— 在多个 Office 应用中实现高效协同
  • 30 天全功能试用— 无需注册,无需信用卡
  • 超值之选— 比单独购买插件更省钱