Colocar el total de páginas de un reporte
 

Hola a Todos:

En la actualidad estoy trabajando con delphi 6 y el Quick Report que viene con el mismo, pero no se como colocar el total de páginas de un reporte, es decir poder inculir en el pie de página del reporte


Página 15 de 25.


Si alguno conoce el como se lo agradeceria.



Gracías de Antemano




Germán Torres

Tienes que lanzar antes un

Código Delphi [-]
QuickRep.Prepare;

y aquí capturas el número de páginas, luego y lanzas el preview o Print.

Aquí tienes un ejemplo.

Un Saludo.

Tienes un ejemplo
 

Gracias por tu tiempo Marcos, pero de casualidad tiene un ejemplo con código.


te lo agradeceria.



Germán Torres

Si te fijas en mi respuesta tienes un enlace con el código, no tienes más que pulsar.

Un Saludo.

Si tan solo te tomaras la molestia de buscar de seguro encontrarias lo que buscas.;)

Error
 

Hola nuevamente:

La situacion que de presenta es la siguiente:

Cree un Reporte tipo, es decir me sirve como base para crear los demas reportes, ya que tiene como caracteristica común con los demas el enabezado y el pie de página, bien ahora intento capturar el total de página adpatando el código suministrado por MARCOS, para los efectos quedo de la siguiente forma

Código Delphi [-]
procedure TQRRepBaseReporte.FormCreate(Sender: TObject);
Var QCodigo : TQuery;
begin
  QCodigo:= UProcedimientos.CrearConsulta();
  With QCodigo do
    begin
      sql.Text:= 'Select * from Configuracion';
      try
        open;
        QRLNombreEmpresa.Caption:= FieldByName('NombreEmpresa').AsString;
        QRNit.Caption:= 'Nit ' + FieldByName('Nit').AsString;
        QRLCiudad.Caption:= FieldByName('Ciudad').AsString;
        QRLNombreReporte.Caption:='';
        QRLLogo.Caption:= FieldByName('Lema').AsString;
        QRIEscudoIzquierda.Picture.LoadFromFile(FieldByName('Escudo').AsString);
        QRIEscudoDerecha.Picture.LoadFromFile(FieldByName('Escudo').AsString);
        QRFRepBaseReporte.DataSet.Open;
      except
      end
    end;
end;

y en el evento OnPreview lo siguiente

Código Delphi [-]

procedure TQRRepBaseReporte.QRFRepBaseReportePreview(Sender: TObject);
Var nPages : Integer;
begin
  QRFRepBaseReporte.Prepare;
  nPages := QRFRepBaseReporte.QRPrinter.PageCount;
  QRLTotalPaginas.Caption :=  'de ' + IntToStr(nPages);
end;

Ahora en orden de ideas todo el código compila sin errores, pero al ejecutarlo me envia un mensaje de error con el siguiente texto QRPrinter not Ready, qudebo hacer ??

gracías de antemano



gertorresm