PRIVATE lnTotalPages
lnTotalPages = 0
lcTemp = ADDBS(SYS(2023)) + SYS(3) + ".TMP"
*-- calculate total number of pages
REPORT FORM < Report > TO FILE (lcTemp) NOCONSOLE

*-- use the following expression in your report:
"Page : " + ALLTRIM(STR(_PAGENO)) + " / " + ALLTRIM(STR(lnTotalPages))

*-- print the report
REPORT FORM < Report > TO PRINTER...

*-- delete temp file
IF FILE(lcFichierTemp)
  DELETE FILE (lcTemp)
ENDIF