[GerTorresM]

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