I am trying to return the total pages being printed from Crystal. Here is the basic part of the Object, could anyone suggest the next part?

oCrystal=CreateObject('Crystal.CRPE.Application') &&create object
oReport=oCrystal.OpenReport('report2.rpt') && Report to use
oReport.database.Verify && Verify Table
oReport.Printout(.F.) && only show Cancel button
pn_TotalReportPages= ??????

I need the amount of pages to be put back into a table, then to replace the table with new data, then re-run the report, then store how many pages that report is.