Excel-VBA 印刷の総ページ数を取得

'印刷の総ページ数取得
Sub PrintPage()
Dim H_Break As Integer
Dim V_Break As Integer
Dim P_Page As Integer
Dim A_Cell As String

A_Cell = Sheet1.UsedRange.Address '最後のセルのアドレスを取得
If A_Cell = "$A$1" Then
If IsEmpty(Sheet1.Range(A_Cell).Value) Then
MsgBox "印刷するデータはありません。"
Exit Sub
End If
End If

H_Break = Sheet1.HPageBreaks.count '横の改ページ数取得
V_Break = Sheet1.VPageBreaks.count '縦の改ページ数取得
If V_Break = 0 Then
P_Page = H_Break + 1
Else
H_Break = H_Break + 1
V_Break = V_Break + 1
P_Page = H_Break * V_Break
End If
MsgBox "印刷ページ総数 ： " & P_Page & " Page", vbInformation, "PageBreaks.Count"

End Sub