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

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 :p , 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.:D

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

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. :D

Checa Esto....
 

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....

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.

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:
A mi me funciona de maravilla

Saludos a todos

Landro

Nimero de Pagina
 

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