打印没有单元格填充颜色但保留单元格文本颜色

我有一个19页的工作簿。 工作表中的单元格用颜色编码，以便用户知道应该编辑的内容。 打印时，我们应该设置打印区域的单元格为白色。 我通常忘记这一步，不得不重印。

理想情况下，我想自动化这个过程。 我试图find一个解决scheme只是build议我打印黑色和白色的表。 这不是我想要使用的解决scheme，因为单元格内容也是彩色的，我希望它们在打印时保持原样。

有没有办法，我可以删除只有单元格的填充颜色，打印它，并恢复到原来的格式？ VBA选项很好。

Answer 1

用法：

ClearPrint“Sheet1”

Sub ClearPrint(WorksheetName) Sheets(WorksheetName).Copy Before:=Sheets(1) With Sheets(1).Cells.Interior .Pattern = xlNone .TintAndShade = 0 .PatternTintAndShade = 0 End With Sheets(1).PrintOut Application.DisplayAlerts = False Sheets(1).Delete Application.DisplayAlerts = True End Sub