Quickreport und ForceNewPage

[mato]

Hallo erstmal !

Ich weiss nicht ob ich hier richtig bin, ich versuche es einfach mal.
Fummle schon eine ganze Weile an einem Progrämmchen rum, bin soweit auch ganz gut klar gekommen, doch jetzt ist ende. Brauche einen kleinen Denkanstoss, komme einfach nicht mehr klar.
Ich möchte mit Hilfe von Quickreport Daten aufs Papier bringen, geht auch, aber nicht so wie ich das gerne hätte.
Habe einen Report mit einem Detail- und zwei Subdetailbändern erstellt. Ein Subdetail ist leer, in jenes möchte ich zur Laufzeit Labels einfügen, klappt auch noch.
Da ich vorher jedoch nicht weiss wieviel Labels es werden (datenabhängig) und es in der Regel passiert das mehr als eine Seite im Report benötigt werden, habe ich es mit ForceNewPage versucht. Funktioniert aber nicht richtig.
Stelle ich ForceNewPage des zweiten Subdetailbandes auf true dann haut er mir alles auf die zweite Seite, auf false gibt es logischerweise nur eine Seite und er schreibt über das Seitenende hinweg.
Wie bekomme ich es hin das er die erste Seite voll schreibt und auf der zweiten weitermacht (falls nötig).
Ich hoffe mir kann jemand helfen, die Beiträge im Forum haben mir nicht wirklich geholfen. Danke schon im voraus.

Hier noch der Code in dem ich die Labels erzeuge:

Delphi-Quellcode:

 for i := 1 to 500 do  
   begin  
    LLabel := TQRLabel.Create(reportform.artikel.AddPrintable(TQRLabel));  
    LLabel.Parent := reportform.artikel;  
    LLabel.Size.Units := pixels;  
    with LLabel do  
     begin  
      caption := 'Testlabel'+inttostr(posi);  
      left := 0;  
      top := posi;  
      posi := posi + reportform.artikel.FontSize +2;   
     end;{with}  
   end;{for}  
 
reportform.QuickRep1.Preview;

mato

[MrSpock]

Hallo mato,

herzlich willkommen im Delphi-PRAXIS Forum.

Du solltest nicht 500 Label erzeugen, sondern Zeile für Zeile arbeiten und zwar mit dem OnNeedData Event. Suche mal hier im Forum danach, das sollte dir weiterhelfen.

[mato]

hallo

Danke erstmal. Schau gleich mal nach.

mato