Poner el numero de pagina con formato 2/2 en quick report

[raco]

Hola, tengo una duda, estoy utilizando el QRsysdata en un quick report para que me ponga el numero de pagina, mi duda es la siguiente , existe alguna forma de ponerle cierto formato u otro componente que en vez de mostrarme solamente el numero de la pagina me ponga por ejemplo pagina 2 de 5 es decir 2/5 o 2-5, etc. Gracias.

[[ElKurgan]]

Empezado por raco

... existe alguna forma de ponerle cierto formato u otro componente que en vez de mostrarme solamente el numero de la pagina me ponga por ejemplo pagina 2 de 5 es decir 2/5 o 2-5, etc. Gracias.

Creo que debes hacer uso del método "Prepare" del quick report, para que sepa cuantas páginas tiene el informe antes de lanzarlo... Busca en la ayuda de QR

Un saludo

[raco]

Ok gracias, pense que habia alguna forma de ponerle el formato al componente, bueno entonces voy a usar esto: orden.QuickRep2.QRPrinter.PageCount p agregarselo al text del numero de pagina, gracias de nuevo.

[AGAG4]

Agrega un QrExpr y añade la función PageCount, y en el OnPrint concatenas el Dataset,Query ó table que tengas de este mismo sólo pones lo siguiente:

Código Delphi [-]
  QrExpt1.caption:=QrExpt1.caption + IntToStr(Tabla.RecordCount);

Es una idea Balazo que tengo.

Suerte....

[marcoszorrilla]

QrExpt1.caption:=QrExpt1.caption + IntToStr(Tabla.RecordCount);

Hay que tener en cuenta que RecordCount devuelve el número de registros y no el de páginas.

Por lo que como ya se ha dicho en este hilo, no queda más remedio que hacer un Prepare y de ahí extraer el número de páginas.

Un Saludo.

[landro]

Empezado por raco

Hola, tengo una duda, estoy utilizando el QRsysdata en un quick report para que me ponga el numero de pagina, mi duda es la siguiente , existe alguna forma de ponerle cierto formato u otro componente que en vez de mostrarme solamente el numero de la pagina me ponga por ejemplo pagina 2 de 5 es decir 2/5 o 2-5, etc. Gracias.

Yo lo tengo de esta forma:

Código Delphi [-]
//Primero pongo un QRLabel en el Diseño del Report donde le voy a poner el 
//nº de pagina
//despues en el evento OnClick del boton Imprimir
//añades un
var
npaginas:integer;
begin
Application.CreateForm(TFPRpresudetalle, FPRpresudetalle);
with FPRpresudetalle do
begin
try
//preparamos la impresion para saber el numero de paginas que hace
ReportPRESU.Prepare;
//pasamos el nº paginas a la variable
npaginas:=ReportPRESU.QRPrinter.PageCount;
//cambiamos el caption del Label que nos muestra el nº de pagina
QRLabel15.Caption:=IntToStr(npaginas);
//visualizamos el reporte
ReportPRESU.Preview;
finally
Free;
ReportPRESU:=nil;
end;
end;
end;

En el QuickRep tengo un Band declarado como rbPageFooter dentro a la derecha tengo: (label)'Página '(QRExpr)[PAGENUMBER](Label)'/'(label que cambio por el Nº de pagina)N
La salida es:

Página 1/2

A mi me funciona de maravilla

Saludos a todos

Landro

[elturu15]

Hola como andna? quiero que me digan como poder generar los numeros de pagina para QuickReport. como se usa el QRSySData?
Ayuda! jaja