Question

我有一张19页的工作簿。纸张中的单元格采用颜色编码，以便用户知道应该编辑的内容。当我们打印它时，我们应该将打印区域的单元格设置为白色。我通常会忘记这一步，必须重新打印。

理想情况下，我想自动执行此过程。我试图找到解决方案只建议我打印黑白照片。这不是我想要使用的解决方案，因为单元格内容也是彩色的，我希望它们在打印时保持这种状态。

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

Answer 1

<强>用法：

ClearPrint＆＃34; Sheet1＆＃34;

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

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

1 个答案: