excel - 如何获取在页面末尾有评论的excel表的页数

Question

Excel 对象模型使用 api Sheet->PageSetup->Pages->Count 为我们提供了工作表上的页数

但是这个计数不包括由于在工作表末尾打印的注释而添加的页数(可以在工作表的 pagesetup 中进行的设置)

有人可以找到解决方案。

谢谢
喜满洲

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