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

Id. de artículo: 550115 - Ver los productos a los que se aplica este artículo
Este artículo se publicó anteriormente con el número E10116
Expandir todo | Contraer todo

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: sábado, 19 de abril de 1997 - Versión: 1.0
La información de este artículo se refiere a:
  • 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
Palabras clave: 
vfp imprimir formato informe KB550115

Enviar comentarios

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com