怎么样通过vba获取打印的页数

请参：

Sub fileprint()

Dim MyDialog As Dialog, Ps() As String, Pl() As String, PPcount As Integer, PrintSel As String

Dim S As Integer, N As Integer, H As Integer, Upper As Integer, Lower As Integer, Cop As Integer

Set MyDialog = Application.Dialogs(wdDialogFilePrint)

With MyDialog

If .Show = -1 Then

Cop = .NumCopies

Select Case .Range

Case 0

PrintSel = "您选择了打印所有页"

PPcount = ActiveDocument.Content.Information(wdNumberOfPagesInDocument)

Case 2

PPcount = 1

PrintSel = "您选择了打印当前第" & Selection.Information(wdActiveEndPageNumber) & "页"

Case 4

PrintSel = "您选择了打印指定页:" & .Pages

Ps = Split(.Pages, ",")

Upper = UBound(Ps)

Lower = LBound(Ps)

For i = Lower To Upper

N = N + 1

If InStr(Ps(i), "-") > 0 Then

Pl = Split(Ps(i), "-")

S = Pl(1) * 1 - Pl(0) * 1

H = S + H

End If

Next

PPcount = N + H

End Select

MsgBox PrintSel & ",打印份数为:" & Cop & ",打印的页数为:" & PPcount & "张," & vbCrLf _

& "实际上产生了" & Cop * PPcount & "张纸.", vbInformation

End If

End With

End Sub