FoxPro/Visual FoxPro - Total paginas

Hola Amigos

quiero saber como puedo conocer el total de paginas
de un informe para poner algo asi

Pagina 1/4
Pagina 2/4

Tu saves que instruccion le das para poner el numero a la paguina
creo que es _PAGENO = nCurrentPageNumber si no estoy mal pero en fin porque no chequeas tu ayuda y ves esta instruccion tambien hay para poner el numero a la paguina actual, primera paguina, ultima paguina de alli puedes sacar tu relacion ..
Suerte

El proceso consiste en ejecutar el report dos veces, el primero para contar el total de pagina y el segundo para mostrar los datos.

Este codigo, muy util para mi, ya no me acuerdo de donde saque. Utilizo el sgte.

*-- Para llamar al report
Set procedure to curdir()+"program/utility.prg"

Public lnTotPaginas
lnTotPaginas = 0
cInforme = curdir()+"reports/detcur_001.frx"
lnTotPaginas = report_contapaginas(cInforme)

Report form (cInforme) preview

*-- Esto en el Utility.prg (fijate el Set procedure de arriba)

Function report_contapaginas()
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
EndFunc

** Y por ultimo en el report donde quiero que salga algo como esto Pag 1 de 25

'Pag: ' + Alltrim(Str(_pageno)) + " de " + Alltrim(Str(lnTotPaginas))

(lnTotPaginas es la var, que tiene el total de pag,. la cual habia definido como Public al llamar el report)

Espero que hayas entendido mi explicar :)

Utilicé éste procedimiento y en mis pruebas y con mi impresora, funciona fantástico; pero cuando instalo en lo de mi cliente, funciona exactamente al revés, imprimes de 1 a 3 en forma ascendente, pero cuando sale de la simulación, me trae el 1 como página actual .
Al principio, pensé que la impresora tenía Impresión descendente, pero no ...
Lo peor es que con otras impresoras del mismo cliente NO funciona ...
. ya no sé que inventar

Y eso que tiene que ver con el post de hace 16 años que recibiste?