La Web del Programador: Comunidad de Programadores
 
    Pregunta:  3129 - IMPRIMIR TOTAL DE PAGINAS EN FORMULARIO
Autor:  Jordi Perera
Como puedo imprimir en un informe de vfp 6 el nº de paginas actual y el total de paginas (pagina:x de xx)

  Respuesta:  Martin Robles Tovar
ES ALGO REBUSCADO PERO
LO UNICO QUE SE PUEDE HACER ES CORRER 2 VECES EL REPORTE 1 PARA SACAR EL TOTAL DE PAGINAS Y EL OTRO LA IMPRESION NORMAL

CORRIDA 1
1-INICIALIZAR UNA VARIABLE EJEM.
AU_PAGFINAL=´´
SW_CALCULAR=.T. &&esta se pone en las condiciones del reporte en el campo "AU_PAGFINAL"
REPO FORM X TO PASO.TXT
CORRIDA 2
SW_CALCULAR=.F.
REPO FORM X TO PRIN

SE DEBE TENER UNA FUNCION ADICIONAL LA CUAL SE MANDARA LLAMAR DESDE EL REPORE EN LA PRIMERA CORRIDA:

FUNC PAGINAFINAL
PARAMETERS AUP_PAGENO &&pasarle el _pageno
AU_PAGFINAL = AUP_PAGENO
RETU(.T.)

cualquier duda comuniquense conmigo

  Respuesta:  René Abdala Rojas
La verdad no conozco un comando que nos de este valor pero deberias probar dividiendo el numero de registros de la tabla que usas sobre el total de registros que caben en un informe y asi te dara el valor que necesitas que es el numero total de hojas que tiene dicho informe, esto lo puedes hacer ya sea desde el programa antes de ejecutar el report form o dentro del mismo frx.

si tienes alguna duda o quieres ampliar tu pregunta, puedes escribir a mi e-mail

espero haberte colaborado.