imprimir numero progresivo en quick report
 

buenas tardes amigos foristas estoy tratanto de complementar unos reportes en Quick Report, ahora la duda :rolleyes: 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

En que tipo de banda tienes puesto dicho QRDBText?

en QRSubDetail

funciono.... realmente funciono!!!
 

De esa manera que lo escribi... SI funciono, solo tenia un error en la etiqueta de impresion... Yo tenia... QRLabel1 y en realidad es.... QRLabel12...... ha por cierto... el numero progresivo aparece solo en modo ejecucion no en modo preview del quickreport... (osea que tenemos que compilarlo y entonces aparecera el numero progresivo..

saludos... y gracias

No se porque en algún momento creí que hablabas de un QRDBText, pero de todas formas , puedes hacer uso del evento OnBeforePrint de la banda SubDetail en lugar del OnPrint del QRLabel.

Ahhh, que bueno que solo era eso ;)