如何获取在页面末尾有注释的Excel表页数

Excel对象模型使用api Sheet-> PageSetup-> Pages-> Count为我们提供页数

但是这个计数不包括由于注释而添加的页数，这些注释被打印在纸张的末端（可以在纸张的页面设置中进行的设置）

有人可以find这个决议。

谢谢Himanshu

Answer 1

Excel显示中是否正确显示分页符？

如果是这样，你可以试试这个代码：

 Sub HowManyPagesBreaks() Dim iHpBreaks As Integer, iVBreaks As Integer Dim iTotPages As Integer iHpBreaks = ActiveSheet.HPageBreaks.Count + 1 iVBreaks = ActiveSheet.VPageBreaks.Count + 1 iTotPages = iHpBreaks * iVBreaks MsgBox "This sheet will require " & iTotPages & _ " page(s) to print", vbInformation, "OzGrid.com" End Sub 

在这里find