You’ll run your report twice like this:

REPORT FORM myReport TO temp NOCONSOLE
lnTotalPages = _PAGENO

Now you’ll have the total number of pages. The thing is the printing window will display on your screen (twice) I did not know how to get rid of that and I was told to do this:
“Put a UDF in either the report's Title band or the page header that calls this procedure:
Procedure HidePrintWind
If WExist('Printing...')
move window "Printing..." to -1000,-1000
Endif
Endproc”
I have not had the chance to try this yet. Let me know how it works.
Good luck