Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Fallo en el Report
Message
 
To
18/04/2002 03:19:26
Rafael Martinez
Martinez - Escorpion S.L.
La Laguna, Spain
General information
Forum:
Visual FoxPro
Category:
Reports & Report designer
Miscellaneous
Thread ID:
00646201
Message ID:
00646563
Views:
16
>Hola, soy nuevo en este foro, pero no en la programcion con VFP, estoy intentado solicionar un problema al que no encuentro solucion.
>
>Al hacer un report, ¿Como se pone pag # de # ?. El que ponga el nº de pagina actual si se como es, pero y el nº de paginas totales?

Yo uso la una clase para imprimir con el siguiente ejemplo:
*-- Defino una variable global 
_TOTPAGES = 0
La clase que imprime recibe como parámetro el nombre del reporte, antes de imprimir llama el método que que cuenta la cantidad de páginas:
_TOTPAGES = Thisform.CountPages( Thisform.cReport )
*-- CountPages es el método y cReport es una propiedad de la clase que indica que reporte imprimir
El método CountPages lo copie de algún foro de VFP y funciona a la prefección
LPARAMETERS lc_report
LOCAL lnPages, lwTemp
lnPages = 0

DEFINE WINDOW lwTemp FROM 1,1 TO 2,2
ACTIVATE WINDOW lwTemp NOSHOW
REPORT FORM (lc_report) NOCONSOLE
lnPages = _PAGENO
RELEASE WINDOW lwTemp

RETURN lnPages
Por último en el report, en el pie de página tengo un campo con lo siguiente:
"Página: " + LTRIM(STR( _PAGENO )) + " de " + LTRIM(STR( _TOTPAGES ))
Espero que te sirva
Saludos,
Ricardo._
Previous
Reply
Map
View

Click here to load this message in the networking platform