Amigos, es eso. ¿Cómo poner el número de página ej 2 de 10? Agradeceré una ayudita.
Saludos
Francisco J. Alegría P.
Chinandega, Nicaragua.
Fwxh-MySql-TMySql
Chinandega, Nicaragua.
Fwxh-MySql-TMySql
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour ¿Cómo numerar páginas 1/x con TReport?
Amigos, aquí les dejo el trabajo hasta donde he podido llegar. Tal vez alguien quiera ayudar a terminarlo.
Enumera bien las páginas (x/xx), pero no visualiza la última y también presenta el error: "Error(6) deleting enhanced metafile"
***
Saludos.
Enumera bien las páginas (x/xx), pero no visualiza la última y también presenta el error: "Error(6) deleting enhanced metafile"
***
oReport:bPostEnd:= {|| NumeraPag(oReport) } //oReport:= {|| NumeraPag(oReport) }
ACTIVATE REPORT oReport
RETURN NIL
//------------------------------
Function NumeraPag(oReport)
Local n
Local nPaginas := Len( oReport:oDevice:aMeta )
Local aFicheros := oReport:oDevice:aMeta
Local nCol := 5
Local nLin := 2
if nPaginas <= 1
Return Nil
endif
oReport:oDevice:aMeta := {}
FOR n := 1 TO nPaginas
oReport:oDevice:StartPage()
oReport:oDevice:ImportWMF( aFicheros[ n ], .t. )
oReport:oDevice:Say( nLin*oReport:nStdLineHeight(),nCol,Alltrim( Str( n ) ) +"/" + Alltrim(Str(nPaginas)) )
oReport:oDevice:EndPage()
NEXT
Return NIlSaludos.
Francisco J. Alegría P.
Chinandega, Nicaragua.
Fwxh-MySql-TMySql
Chinandega, Nicaragua.
Fwxh-MySql-TMySql
???
Francisco J. Alegría P.
Chinandega, Nicaragua.
Fwxh-MySql-TMySql
Chinandega, Nicaragua.
Fwxh-MySql-TMySql