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