FoxPro/Visual FoxPro - Pequeño Problema de Impreción

el Problema es que se a pedido que en el reporte me muestre el numero total de paginas ej. 1/10
2/10,3/10 ...

de antemano gracias por sus sugerencias o respuesta a esta pregunta

Hola, Jaime...
El detalle que necesitas es muy ´COOL´, casi nadie lo ha podido implantar asi que vas a ser un pionero y tus reportes se ven muy padres y profesionales utilizando el pequeño truco que te voy a pasar, todo el secreto está en determinar de cuantas páginas consta tu reporte, para eso se utiliza la constante de entorno: _pageno, la cual te devuelve el numero de pagina en curso ... aqui te va el truquito ...

*/ Debes realizar dos pasos básicos */
*(1) - Antes de emitir el reporte definitivo ejecuta una llamada a tu reporte pero lo mandas al limbo... eso se hace así:

REPORT FORM <cREPORTE> RANGE 9000

*(2) Almacenas el total de la variable _pageno en una variable publica:

nTotPag = _PageNo

*/ Dentro de tu reporte puedes colocar en el Footer o en el Header, la siguiente función en un campo calculado:

´Pag. ´ + ALLTRIM(STR(_PageNo)) + ´ de ´ + ALLTRIM(STR(nTotPag))

y cuando imprimas tu reporte se verá:
"Pag. 1 de 10" o en vez de la palabra ´de´ puedes poner una diagonal y se verá:
"Pag. 1/10´, eso ya es en base a tus requerimientos o a tu gusto.

Ojalá te sea de utilidad este tip y quedo a tus órdenes para lo que se ofrezca.

Saludos y suerte.
Alberto Sánchez S.
Mexico, D.F.

cuenta el numero de registros que tiene tu base datos y el numero de registros que caben por hoja

numero_de_registros=y
renglones_x_hoja=x
total_de_hojas=iif(y%x=0,y/x,(y/x)+1)