error en quickreport

[martita]

Hola foro tengo el siguiente codigo en donde pretendo como ejemplo
que imprima un ciclo del 1 al 20 y que genere 20 paginas
en cada pagina solo imprimira el numero actual en el centro de la pagina

este es el codigo que tengo y me marca error

for c := 1 to 20
do begin
qreferencia.Caption:=inttostr(c);
qr1.NewPage;
end;
qr1.Preview;

--------------------------------------------------------
o como puedo hacer para que en cada pagina me imprima solo
el numero del contador C y se brinque a la siguiente pagina ?
Saludos :o

[Caro]

Hola martita, debes utilizar el evento OnNeedData del QuickReport y colocar un QrLabel en la banda rbDetail.


procedure TForm2.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean);
begin
MoreData := Ind<=20;
if MoreData then
begin
QRLabel1.caption := IntToStr(Ind);
Inc(Ind);
QuickRep1.NewPage;
end;
end;


Ind es una variable global que debes inicializarla en 0.

Saluditos

[martita]

muchas gracias Caro, con lo que me respondiste resolvi mi problema
y aclare mis dudas, en realidad no conozco quick report y no he
podido encontrar algun manual o tutorial en internet, tu o alguien
que lea mi tema sabra sobre algun tutorial que me pueda pasar o
que me pase algun link de donde pueda adquirir informacion de
quick report ? agradeceria muchisimo si alguien me ayuda con este
dato!!! .

nuevamente muchas gracias y espero que a alguien mas
le sea de utilidad la informacion de este tema.
Salu2.