如何获取页面末尾有评论的Excel工作表页数

Question

Excel对象模型使用api Sheet-＆gt; PageSetup-＆gt; Pages-＆gt; Count

为工作表提供页数

但此计数不包括由于评论而添加的页数，这些页面打印在工作表的末尾（可以在工作表的页面设置中进行设置）

有人可以找到解决方案。

由于 人士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

找到here