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
Er dachte..., ' Schlimmer kanns nicht mehr kommen !!!' Und es kam schlimmer...