Excel VBA-如何插入连续页码

我想在整个工作簿中插入连续页码（工作簿中有两个工作表）

以下是我插入页码的代码：

ActiveWorkbook.Worksheets("Appendix A").PageSetup.CenterFooter = "&P of &N"
ActiveWorkbook.Worksheets("Summary").PageSetup.CenterFooter = "&P of &N"

---

如果您的意思是要从

ActiveWorkbook

中的全部工作表中写入当前工作表的索引，请使用以下代码：

ActiveWorkbook.Worksheets("Appendix A").PageSetup.CenterFooter = "Page " & ActiveWorkbook.Worksheets("Appendix A").Index & " of " & ActiveWorkbook.Sheets.Count
ActiveWorkbook.Worksheets("Summary").PageSetup.CenterFooter = "Page " & ActiveWorkbook.Worksheets("Summary").Index & " of " & ActiveWorkbook.Sheets.Count

---

让我知道你想要的是否在我下面的答案中。下面一行VBA代码将为你提供一张工作表的页数（基于当前的页面设置）。

此工作簿。工作表（1）.PageSetup.Pages.Count

但是，如果用户在打印前更改了页面设置，那么您就倒霉了。因此，我建议您通过提供一个打印按钮来完全控制打印。@Flower\u您测试过吗？