*-- Defino una variable global _TOTPAGES = 0La clase que imprime recibe como parámetro el nombre del reporte, antes de imprimir llama el método que que cuenta la cantidad de páginas:
_TOTPAGES = Thisform.CountPages( Thisform.cReport ) *-- CountPages es el método y cReport es una propiedad de la clase que indica que reporte imprimirEl método CountPages lo copie de algún foro de VFP y funciona a la prefección
LPARAMETERS lc_report LOCAL lnPages, lwTemp lnPages = 0 DEFINE WINDOW lwTemp FROM 1,1 TO 2,2 ACTIVATE WINDOW lwTemp NOSHOW REPORT FORM (lc_report) NOCONSOLE lnPages = _PAGENO RELEASE WINDOW lwTemp RETURN lnPagesPor último en el report, en el pie de página tengo un campo con lo siguiente:
"Página: " + LTRIM(STR( _PAGENO )) + " de " + LTRIM(STR( _TOTPAGES ))Espero que te sirva