Probably you may use this:

?yGetPDFPageCount(Fullpath_PDF_file_name)
*--------------
Function yGetPDFPageCount
lParameter pcFileNAme
Local lc
lc=FILETOSTR(pcFileNAme)
return OCCURS("TYPE/PAGE",UPPER(lc)) - OCCURS("TYPE/PAGES",UPPER(lc))
*or
*lc=SUBSTR(lc,AT("<</Type/Pages"+CHR(10)+"/Count",lc)+15)
*return LEFT(lc,AT(CHR(10),lc)-1)

>Hello,
>Is there anyway in my VFP 7 app to tell me the number of pages in a .pdf file it creates through crystal reports? I don't care if it tells me at the time it creates the file, or after the file is created and stored on disk. TIA!
>
>-MAC