Quickreport Vorschau und Druck

[af99]

Hallo,

ich habe ein kleines Problem mit dem Quickreport (delphi 6).

Delphi-Quellcode:

procedure TForm8.ChildBand1BeforePrint(Sender: TQRCustomBand; 
var PrintBand: Boolean); 
... 

if form1.radiogroup3.ItemIndex = 1 then 
begin 
form1.tb_rg_nr.Last; 
rgnr := strtoint(copy(form1.tb_rg_nr.fieldbyname('rgnr').Asstring,6,4)) + 1; 
dummy_rgnr := inttostr(rgnr); 
dummy_rgnr2 := copy(form1.tb_rg_nr.fieldbyname('rgnr').Asstring,1,5); 
laenge := 4; 
laenge := laenge - length (dummy_rgnr); 

for t := 1 to laenge do 
begin 
dummy_rgnr := '0' + dummy_rgnr; 
end; 

qrlabel54.Caption := copy(form1.tb_rg_nr.fieldbyname('rgnr').Asstring,1,5) + 
dummy_rgnr; 
form1.tb_rg_nr.Edit; 
form1.tb_rg_nr.Append; 
form1.tb_rg_nr.fieldbyname('rgnr').Asstring := dummy_rgnr2 + dummy_rgnr; 

end else 
begin 
qrlabel54.Caption := 'keine !!!'; 
end; 
....

vergebe hiermit eine fortlaufende Rechnungsnummer auf jeder Seite der Reports.
Rufe den Report mit Preview auf. Rechnungsnummern sind auch alle korrekt.
Wenn ich nun den Report aus der Vorschau drucke werden die Rechnungsnummern nochmal vergeben. Also in Preview stehen die Nummern 1,2,3,4,5, auf dem Ausdruck aber die Nummern 6,7,8,9,10.
Verstehe ich nicht.

kann mir jemand helfen ?

Gruss
Andreas

[edit=Sharky]Delphi-Tags gesetzt. Mfg, Sharky[/edit]