问如果我已经设置了所需的打印区域，如何仅打印包含非“”公式结果的页面？

EN

在查看了@ProfoundlyOblivious提供的链接后，我很快发现我缺乏使用VBA编写建议的解决方案的技能。然而，试图解析所有这些信息让我头脑发热，我确实开发了一个非常简单和诡秘的变通方法，使用与简单的单行宏绑定的公式。假设打印区域预定义的所有页面都具有相同的宽度，并假设至少有一个单元格将始终始终填充到已用页面上，如果您遇到类似的问题，这些说明应该适用。

在第一页的空白行中输入以下简单的二进制IF公式：

=IF(A1<>"",1,0)

其中，A1是第一页中的一个单元格，其中包含一个公式，如果正在使用该页，则可以保证该公式一致地返回值。(在我的例子中，导入的信息是从每页左上角开始的列中导入的)。

选中包含公式的页面行(不是整个工作表，只是打印区域定义的页面宽度)，然后将fill拖到所有可能的页面上，然后在最后一页的同一行中简单地添加一个引用(添加)所有二进制IF(X,1,0)公式的SUM(，)公式。得到的总和将是填充的页数。

笨重，但功能强大。

最后，简单的print宏：

Sub Print_Audit_Sheets()
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=Range("JW42").Value, Copies:=1, Collate:=True, IgnorePrintAreas:=False
End Sub

其中("JW42")是对所有二进制IF()公式求和()的范围的引用。这不是花哨，但它是简单的，简单的工作。确保更改IF()、binary和Sum()单元格的文本颜色，这样打印输出中就不会出现随机的1和0。

如果第一个页面的填充不一致，或者包含值的页面不连续，则需要修改此代码。

我的回复对评论字段来说太长了，或多或少回答了你的问题，所以我把它移到了这里。

按照我想象数据的方式，我会遍历工作簿中的每一页。当我在一个页面上时，我会遍历每个公式，直到找到一个不是空白的结果。在找到非空白结果时，我会将该页添加到要打印的页列表中，并移动到下一页。检查完最后一页后，我会打印列表中的每一页。

你可能想定义完成你的项目所需的步骤(类似于我刚才所做的)，因为每一步都需要几个动作，几乎每一个动作对于有你这样经验的人来说都是一个新的挑战。一旦定义好了，找到对你的程序至关重要的最基本的动作，然后开始。保持简单，你不会总是知道挑战会是什么，或者它会来自哪里。看起来很简单的步骤，比如页面之间的循环，需要对工作簿对象有基本的了解，而且这是一个比循环复杂得多的主题。

请记住，我们来这里是为了解决您当前代码的问题。如果您对现有代码没有问题，那么除了为您指明一条路径之外，没有什么可以做的。