Paginación de un reporte

Hola experto, de antemano te agradezco la atención, espero no se complique esto, tengo un reporte que necesito ponerle página 1 de 5 o 1 de 8, según, el hecho es que no encuentro como contar las páginas para que se imprima así, gracias...

1 respuesta

Respuesta
1
Puedes usar la variable lntotpaginas para poner el 'Y' en tu expresión 'Página POR de Y'
lntotpaginas = 0
lntotpaginas = TotalPaginas("minforme")
REPORT minforme ....
FUNCTION TotalPaginas
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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas