Ver Mensaje Individual
  #1  
Antiguo 18-07-2007
Avatar de Goyo
Goyo Goyo is offline
Miembro
 
Registrado: feb 2006
Posts: 89
Reputación: 19
Goyo Va por buen camino
Question imprimir numero progresivo en quick report

buenas tardes amigos foristas estoy tratanto de complementar unos reportes en Quick Report, ahora la duda viene cuando quiero insertar un numero progresivo en mi Reporte... para ello les comento que hago lo siguiente, en el evento BeforePrint pongo lo siguiente : les comento que cheque esta liga

Son BD de Paradox y utilizo QuickReport

Código Delphi [-]
procedure TQuickReport1.QuickRepBeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
  autonum := 0;
end;

y en el evento Print de cada Text lo siguiente:
Código Delphi [-]
procedure TQuickReport1.QRDBText3Print(sender: TObject; var Value: String);
begin
    Inc(autonum);
    QRLabel1.Caption := inttostr(autonum)
end;

ademas puse un QRLabel1 para que alli me ponga el numero progresivo a imprimir... pero No mas no pone nada de nada..

espero contar con su ayuda... de momento muchas gracias...

saludos
Responder Con Cita