Hi shakti5385

Thanks for your prompt reply

Here I use Crystal Repot 9 (CRViewer91) in VB6

I can't see a property or method as .RecordsPrinted under Crystal repot 9

Here is my exact VB code

VB Code:
  1. Private Sub CmdPrnt_Click()
  2.  
  3. Dim CrystApp As CRAXDRT.Application
  4. Dim CrystRpt As CRAXDRT.Report
  5. Dim MyFrmDtlRpt As New FrmRptViewr 'Form with CRViewer91 to view the report
  6. Set CrystApp = New CRAXDRT.Application
  7. Set CrystRpt = CrystApp.OpenReport("Reports\EBLStlRpt.rpt")
  8.  
  9. CrystRpt.DiscardSavedData
  10.  
  11. MyFrmDtlRpt.CRViewer91.ReportSource = CrystRpt
  12. MyFrmDtlRpt.CRViewer91.Refresh
  13. MyFrmDtlRpt.CRViewer91.ViewReport
  14.  
  15. MyFrmDtlRpt.Show
  16.  
  17. Set CrystApp = Nothing
  18. Set CrystRpt = Nothing
  19.  
  20. End Sub

How can I display the number of records in my this report.

With regards,

Nasreen