Hallo.

ich möchte mit dem Freereport eine Tabelle drucken. Habe diesen Code dafür verwendet. Der Report bleibt aber leer. Was mache ich falsch.

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.frxReport1BeforePrint(c: TfrxReportComponent);
var
  Cross: TfrxCrossView;
  i, j: Integer;
begin
  if c is TfrxCrossView then
  begin
    Cross := TfrxCrossView(c);

    Table1.First;
    i := 0;
    while not Table1.Eof do
    begin
      for j := 0 to Table1.Fields.Count - 1 do
        Cross.AddValue([i], [Table1.Fields[j].DisplayLabel], [Table1.Fields[j].AsString]);

      Table1.Next;
      Inc(i);
    end;
  end;
end;

mal ohne freereport zu kennen und eine kristallkugel zur hand zu haben, gibt es da nicht eine ereignis onPrint, statt beforePrint?

Zitat von grenzgaenger:

mal ohne freereport zu kennen und eine kristallkugel zur hand zu haben, gibt es da nicht eine ereignis onPrint, statt beforePrint?

Hi, Danke, hast Recht, ich hatte das Ganze im falschen Ereignis. Man schaut zigmal drüber und macht dann noch Fehler.

Gruß
Klaus