Ja, gibt es. Dazu brauchst Du ein rbColumnHeader Band, und ein Detailband.
Im Onneeddata des Reports, kannst Du dann die Daten des Detailbandes einstellen und festlegen, ob noch mehr Daten gedruckt werden.
Im Beforeprint setzt Du einen internen Zähler auf 1. Das ganze könnte dann so aussehen:
Delphi-Quellcode:
procedure TDruckform.EreignisreportBeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
printreport := true;
EreignisZaehler := 1;
end;
procedure TDruckform.Ereignisreport2NeedData(Sender: TObject;
var MoreData: Boolean);
begin
if EreignisZaehler = 1 then
Ereignisreport2.NewColumn;
QRLabel448.caption := DeinText;
moredata := EreignisZaehler <= GeraeteEreignis.AnzahlEreignisse;
inc(Ereignis2Zaehler);
end;