我有一份报告，列出了公司名称和该业务的详细信息。 每个业务通常都在报表的一页上进行打印预览。
我设法创建了一些代码来抓取所有商家名称和当前页码，然后将它们添加到表格中（ BusinessPage ）。我已将此代码放在报告的“打印”部分。
在我浏览报告后，所有商家名称及其页面都会添加到表格中（商家页面）。
然后，索引页面会显示这些特定企业的相应页码。
现在这个工作相当不错，唯一的问题是：我必须在索引页面显示任何内容之前循环浏览报表的每个页面（这是因为只有在激活页面“On Print”代码时才会填充表格。在将任何信息添加到表格之前，必须首先查看页面。
我的问题是，是否有一段VBA代码可用于遍历报表的所有页面然后再返回？如果我能实现这一点，则意味着它将返回到报告的开头并正确显示索引页面上的所有页面，因为报告已经循环显示。
答案 0 :(得分：1)
解决方案是将代码从On Print移至On Format。
On Print仅在实际打印或预览页面时执行。
On Format，例如通过转到打印预览的最后一页。或者，如果页脚包含[Pages]：要计算总页数，则必须准备所有页面，以便执行代码。