itazev,
I believe you need to open the report in order to get a page count.
This should work for you:
Dim stDocName as String
stDocName ="Name of your Report"
DoCmd.OpenReport stDocName, acViewPreview, , , acHidden
msgbox Reports(stDocName).Pages
Hth,
Sup