VBA计算excel中单个表、多个表的打印页数

VBA计算单个表的打印页数：

msgbox (yjh.HPageBreaks.Count+1)*(yjh.VPageBreaks.Count+1)

 

VBA计算多个表的打印页数：

Sub ShowPageCount() '计算页面总数

    Dim PageCount As Integer

    Dim sht As Worksheet

    PageCount = 0 '初始化计数

    For Each sht In Worksheets

       PageCount = PageCount + (sht.HPageBreaks.Count + 1) * (sht.VPageBreaks.Count + 1)

        '页面总数等于每个表格书的加和，每个表格里的数量等于（横向页面分割线+1）*（纵向分割线+1）

    Next sht

    MsgBox "Total printed pages = " & PageCount '显示总的页数

End Sub