克林顿有一个工作簿，其中包含200多个工作表，该工作表在当月由公司中的不同人员填充。在月底，他需要打印这些工作表。并非所有工作表都包含数据，克林顿只想打印包含数据的工作表，这样他就不会浪费纸张。他想知道是否有一个宏，可以用来仅打印那些在单元格G41中具有值的工作表。

答案是这样的宏可以很容易地编写。它只需要弄清楚有多少工作表，检查每个工作表上的单元格G41，然后仅在该单元格中有东西时才打印。

下面的宏仅执行这些操作。

Sub PrintMost()

Dim wks As Worksheet     For Each wks In ActiveWorkbook.Worksheets         If Not IsEmpty(wks.Range("G41")) Then             wks.PrintOut         End If     Next     Set wks = Nothing End Sub

可以轻松修改该宏以执行其他操作，例如询问是否应打印任何给定的工作表或询问应打印多少份。

注意：

如果您想知道如何使用此页面（或_ExcelTips_网站上的任何其他页面）中描述的宏，我准备了一个特殊页面，其中包含有用的信息。

点击此处在新的浏览器标签中打开该特殊页面。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧（3502）适用于Microsoft Excel 97、2000、2002和2003。您可以在以下功能区中为Excel的功能区界面（Excel 2007及更高版本）找到本技巧的版本：

仅打印非空白工作表。