Ver Mensaje Individual
  #3  
Antiguo 12-05-2008
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Reputación: 22
Caro Va por buen camino
Hola yomismo24, para conseguir lo que quieres debes usar el evento OnNeedData del QuickResport.

En el evento BeforePrint del QuickReport, abrimos el archivo para poder leerlo despues.

Código Delphi [-]
procedure TForm3.QuickRep1BeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
 AssignFile(Archivo, 'c:\Archivo.txt');
 Reset(Archivo);
end;

En el evento OnNeedData del QuickReport recorremos todo el archivo y cada linea que leamos lo asociamos a nuestro QrLabel, donde el QrLabel deberas colocarlo en tu BandaDetail para que se vayan imprimiendo todas las lineas de tu archivo.

Código Delphi [-]
procedure TForm3.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean);
var
 Linea : string;
begin
  MoreData := not eof(Archivo);
  if MoreData then
  begin
    Readln(Archivo, Linea);
    QrLabel.caption := Linea;
  end;
end;

Y en el evento AfterPrint del QuickReport, cerramos el archivo.

Código Delphi [-]
procedure TForm3.QuickRep1AfterPrint(Sender: TObject);
begin
 CloseFile(Archivo);
end;

Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita