[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