水晶报表页数问题请教

    Dim objCRApp As New CRAXDDRT.Application    '水晶报表应用程序对象
    Dim objCRReport As New CRAXDRT.Report       '报表对象
                    。
                    。
                    。
 CRXSubReportTemp.DiscardSavedData
    CRXSubReportTemp.Database.Tables(1).SetDataSource rstSubReport2
    Set props = Nothing
    Set prop = Nothing
    objCRReport.EnableParameterPrompting = False      '不进行报表参数提示
    
    
    
    '进行报表显示外观设置
    '--------------------------------------------------
    
    objCRReport.LeftMargin = 10
    objCRReport.RightMargin = 10
    Set rstSubReport1 = Nothing
    Set rstSubReport2 = Nothing
    
    '直接打印
    If Printers.Count = 0 Then
        MsgBox "您的机器没有安装打印机！", vbExclamation + vbOKOnly, "操作提示"
        Exit Sub
    End If
    objCRReport.PrintOut False    想再这里输出打印的页数
    可是 objCRReport 对象里没有ALLPAGE的选项啊。