Cómo imprimir en un informe a pie de página con formato

Resumen

Para imprimir un informe con un Pie de página que tenga el formato "Página # de #", donde se indica el nº de página actual y el total de páginas del informe, se debe usar una función definida por el usuario, tal como se explica a continuación.


La información del artículo es aplicable a :
  1. Microsoft FoxPro para MS-DOS, versiones 1.02, 2.0, 2.5x, 2.6x.
  2. Microsoft Visual FoxPro para Windows, versión 3.0.
NOTA: Esta técnica no es válida para FoxPro 2.x Windows

Más información

Para obtener el número total de páginas, es necesario ejecutar el informe dos veces. Para lanzar el informe se puede utilizar el siguiente código :




**********PRINCIPIO DE PROGRAMA*****************

CLEAR
CLOSE DATABASES

USE tabla.dbf && tabla.dbf es la tabla utilizada por el Informe
pgcnt = 0 && Almacenará el número de páginas total
check =.T. && Para ejecutar la función pgcnt solo una vez

Old_Con = SET('CONSOLE')
SET CONSOLE OFF
REPORT FORM Informe NOCONSOLE && 'Informe' se lanza una 1ª vez
REPORT FORM Informe TO PRINTER && 'Informe' se imprime
SET CONSOLE&Old_Con

PROCEDURE pgcnt
check =.F.
pgcnt = _PAGENO && Obtiene el número total de páginas
RETURN ''

************FIN DE PROGRAMA***********************


La variable 'check' se utiliza para impedir que la función PGCNT() se ejecute más de una vez.


Se debe modificar el informe para introducir en la Banda de Resumen un campo con la siguiente expresión:
IIF(check=.T.,PGCNT(),'')
En el Pie de página del informe, se debe introducir:
Página _PAGENO de PGCNT
donde 'Página' y 'de' se pueden introducir mediante un objeto Etiqueta y _PAGENO y PGCNT serian las expresiones de dos objetos campo.


La función IIF() comprueba si la variable 'check' es.T. la primera vez que se ejecuta el informe; si 'check' es.T., ejecutará la función PGCNT(). Esta función simplemente almacena la variable _PAGENO en otra variable llamada 'pgcnt'. En el Informe final, 'pgcnt' tendrá el valor correcto.
Propiedades

Id. de artículo: 550115 - Última revisión: 19 abr. 1997 - Revisión: 1

Comentarios