Numero total paginas en report.

[Garbi]

Hola tengo un cliente que esta empeñado en que el footer del reporte ponga "Pagina 1 de X", yo actualmente tengo puesto : FOOTER OemtoAnsi("Pagina: ")+str(oReport:nPage,3) CENTERED
Alguien podria indicarme como ponerlo.

Gracias.

[Francisco Horta]

Garbi,
prueba asi:
msginfo(LEN(oReport:oDevice:aMeta))
saludos
paco

[Marcelo Via Giglio]

Hola,

el Report nunca sabe cuantas páginas generará hasta que las genere, puede que calcules antes en función de la información, pero aún así en función de la resolución de la impresora no sabrás cuantas páginas tendrás al final.

La solución es que abras una a una las páginas generadas ( EMF ) y allí pongas (..say ) la información que necesitas, ya que al final sabes cuantas páginas se generaron

saludos

Marcelo

[Garbi]

Tras las pruebas hechas,
Con : LEN(oReport:oDevice:aMeta) , no se si la pongo donde toca pero me sale pagina 1 de 1, pagina 2 de 2 así hasta el final, pero no pagina 1 de 12
La pongo en : FOOTER OemtoAnsi("Pagina: ")+str(oReport:nPage,3)+" de "+ STR(LEN(oReport:oDevice:aMeta),3) CENTERED

Y la otra opción no tengo ni idea de como implementarla. Algún ejemplo.

[Mauricio]

Este tema a sido el coco para muchos de nosotros

aMeta, conforme va generando la pagina va incrementando el valor del array, asi que no vale si no hasta el final que termina de generar.


solucion no muy ortodoxa es contar cuantos registros caben en una pagina y hacer un recCount(), lastRec() y dividirlo entre la cantidad e irlas escribiendo en cada pagina

RecCount() / nRegistrosPorPagina


Saludos,
Mauricio

[RSalazarU]

Saludos amigos del foro:

Alguien pudo resolver o hacer algo en este tema??

De antemano, gracias por la ayuda.


Atentamente,

Rolando
Cochabamba, Bolivia

[horacio]

Hay unas clases desarrolladas por thefull que tienen esa opción.

Saludos

[Marcelo Via Giglio]

Holas,

una prueba que funciona es: en el m'etodo end() de la clase report, a~nadir la l'inea

Code: Select all  Expand view

   NumeraPag(::oDevice,1,1)
 

al final del m'etodo, y la funcion NumeraPag

Code: Select all  Expand view

Static Function NumeraPag(oPrn,nRowStep,nColStep)
Local x
Local nPaginas := Len( oPrn:aMeta )
Local aFicheros := oPrn:aMeta
Local nCol := 70*nColStep      //colocalo donde prefieras
Local nLin := 64*nRowStep    //   ""

if nPaginas <= 1 // Solamente una pagina
  Return Nil
endif

oPrn:aMeta := {}

FOR x := 1 TO nPaginas
   //PAGE
   oPrn:startpage()
   oPrn:ImportWMF( aFicheros[ x ], .F. )
   oPrn:Say( nLin,nCol, +Alltrim( Str( x ) ) +"/" + Alltrim( Str( nPaginas ) ) ,,,,,1 )
   oPrn:endPage()
   //ENDPAGE
NEXT

Return NIl

Claro no es una soluci'on elegante, pero se puede hacer muchas cosa distintas para implementar la soluci'on

Saludos

Marcelo V'ia

[RSalazarU]

Marcelo:

Gracias por responder

Yo tb habia pensado en algo asi, gracias por la solucion


Atentamente,

Rolando

[RSalazarU]

Marcelo:

la solucion sirve SOLO si haces PREVIEW.

Si mandas directo a la impresora no se crea oPrn:aMeta

Estuve revisando la clase TImprime.prg de TheFull y tiene el siguiente codigo:

Code: Select all  Expand view

       if lPageCount .AND. ::oPrn:lMeta    // Quiero poner contador de paginas y los tengo creados
          ::PageCount()
       endif
 

donde se puede ver que el numerador esta condicionado a ::oPrn:lMeta (Preview)


Saludos

[Marcelo Via Giglio]

Rolando,

entonces no quedar'ia mas opci'on que realizar doble pasada cuando la impresi'on es directa.

Sabes esto lo hice en 2009 junto con el preview en miniaturas, y ahora ya no utilizo tReport, quien sabe debemos poner trabajo en Ease Report

Saludos

Marcelo V'ia