La Web del Programador: Comunidad de Programadores
 
    Pregunta:  2803 - NUMERACIÓN DE PÁGINAS EN REPORTES.
Autor:  Ramsés Uscanga Barrientos
Quisiera saber si existe alguna forma de decirle a un informe impreso la cantidad de hojas que contiene y que numero de hoja se esta imprimiendo, algo como esto: página 1 de 10, página 2 de 10, página 3 de 10...página 10 de 10

Los comandos con los que envio a imprimir son los siguientes:

xForm = xpapp + "general\r95juram"
DEFINE WINDOW wPreveer FROM 0,0 TO 31,133 Font ´Arial´,9;
Title ´Titulo del informe´;
System Close Grow Float Zoom Color Scheme 10
Report Form &xForm Preview Window wPreveer
Release Window wPreveer

en donde xform guarda la ruta del archivo *.frx que mando a imprimir. Gracias por su ayuda

  Respuesta:  jesus alberto sanchez sarabia
Hola, compañero programador:

Hace unos meses tuve ese requirimiento y lo solucioné asi:

*/ Ejecuta este codigo antes de tu REPORT FORM */
SELE <Tabla>
REPORT FORM frNombreDeTuReporte RANGE 9000
nTotalPag = _PageNo

*/ Esta variable programala en el Report Form
* en el Footer o donde la necesites:
*/ ´Pag. #´ + alltrim(str(_pAGEno)) + ´/ ´ + alltrim(str(nTotalPag))

y te resulta: "Pag. # 1/ 10"

Ojala te sirva.
Saludos.

J. Alberto Sanchez S.
Mexico, D.F.

  Respuesta:  Nora Chauca
Hola...!!!!!

Cuando yo envio a imprimir esta variable del fox me jala el No de paginas es decir 1,2,3, _PageNo, ahora si tu deseas que aparesca 1/10 por ejm... entonces con esta variable _PageNo crea otra que acumule el total

Bye.