VBA返回报表的总页数

谢谢你的及时回复，我之前也是这样做的，但是不行。可能是我没有表达清楚，请你再帮忙看看。

我做了一个执行打印的按钮，目的是打开这个的报表，然弹出一个Msgbox，显示这个报表中所包含的记录数和总页数。代码如下：

Private Sub Cmd_Print1_Click()
Dim strSheetType As Variant

    strSheetType = Trim(Me.Combo_SheetType)
    If IsNull(strSheetType) Then
        MsgBox "Input Error! Please check....", vbCritical
        Exit Sub
    End If
           
    intRecordCount = DCount("*", "tempStockInventory")  
    
    DoCmd.OpenReport strSheetType, acViewPreview, , , acWindowNormal
    MsgBox "此次打印：" & intRecordCount & "条记录，共" & " ？ 页报表", vbInformation
    Combo_SheetType = ""
End Sub