Estás trabajando sin conexión, espera a que vuelva la conexión a Internet

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

Este artículo se publicó anteriormente con el número E10116
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: 04/19/1997 10:30:00 - Revisión: 1.0

  • Microsoft FoxPro 2.6 para MS-DOS
  • Microsoft FoxPro 2.0
  • Microsoft FoxPro 2.5b for MS-DOS
  • Microsoft FoxPro 2.5a
  • Microsoft FoxPro 2.5b for MS-DOS
  • Microsoft FoxPro 2.6a Standard Edition
  • Microsoft FoxPro 2.6 para MS-DOS
  • Microsoft FoxPro 2.5a
  • Microsoft FoxPro 2.5b
  • Microsoft FoxPro 2.6 Standard Edition
  • Microsoft FoxPro 2.6a Standard Edition
  • Microsoft FoxPro 2.5b
  • Microsoft FoxPro 2.6a Standard Edition
  • vfp imprimir formato informe KB550115
Comentarios