| Pregunta: | 51500 - TOTAL DE PáGINAS EN EL REPORTE... |
| Autor: | Gonzalo Pérez CAstro |
| Como puedo agregar el total de páginas en un reporte para que me aparezca, por ejemplo, Hoja 1 de 12, Hoja 2 de 12, Hoja3 de 12, etc. Programo en Visual Fox Pro 6.0. De antemano, gracias por su ayuda..... | |
| Respuesta: | Leonardo Alfaro A. |
| Saludos y bendiciones, Gonzalo. Prueba esta función : ************************************************************ * Clase: report_contarpaginas * Devuelve el número de paginas de un report * Parametros: * Nombre del report * Ejemplos: * lntotpaginas = report_contapaginas("minforme") * * Retorno * El numero de paginas del informe. * * Nota * * Creación : 08/09/1999 PRR * Ultima Modificación: 14/04/2000 RAPY Rafael Angel Ponce Yllanes * ************************************************************ PARAMETERS lc_report LOCAL nPaginas nPaginas = 0 REPORT FORM (lc_report) nowait nPaginas = _PAGENO RETURN npaginas Lo aplicas así : ntotal_pag=report_contapaginas("Listado_Empleados") Luego, colocas esta variable en un textbox en el report designer, Despues, Report form Listado_Empleados Preview Noconsole Bendiciones...... | |
| Respuesta: | Leonardo Alfaro A. |
| Gonazlo, Otra forma sería : ************************************************************ * * Clase: report_contarpaginas * * Devuelve el número de paginas de un report * * Parametros: * * Nombre del report * * Ejemplos: * * lntotpaginas = report_contapaginas("minforme") * * Retorno * * El numero de paginas del informe. * * Nota * * * Creación : 08/09/1999 PRR * Ultima Modificación: 14/04/2000 RAPY Rafael Angel Ponce Yllanes * ************************************************************ PARAMETERS lc_report LOCAL nPaginas nPaginas = 0 DEFINE WINDOW x FROM 1,1 TO 2,2 ACTIVATE WINDOW x NOSHOW REPORT FORM (lc_report) NOCONSOLE nPaginas = _PAGENO RELEASE WINDOW x RETURN npaginas | |