Moin,
habe mir mal viel hier im Forum angeschaut und auch getestet damit ich einen Report drucken kann.
Aber ich komme einfach nicht weiter.
Delphi-Quellcode:
procedure TForm1.RvCustomConnectionOpen(Connection: TRvCustomConnection);
begin
Connection.DataRows := 4;
end;
procedure TForm1.RvCustomConnectionGetCols(Connection: TRvCustomConnection);
begin
with Connection do begin
WriteField('Spalte4', dtString, 30, '', '');
WriteField('Spalte5', dtString, 30, '', '');
WriteField('Spalte6', dtString, 30, '', '');
end;
end;
procedure TForm1.RvCustomConnectionGetRow(Connection: TRvCustomConnection);
begin
with Connection do begin
WriteStrData('A' + IntToStr(DataIndex), '');
WriteStrData('B' + IntToStr(DataIndex), '');
WriteStrData('C' + IntToStr(DataIndex), '');
end;
end;
Diesen Code habe ich hier im Board gefunden und teste damit.
Ich bekomme auch eine Liste gedruckt
A0 B0 C0
A1 B1 C1
A2 B2 C2
A3 B3 C3
A4 B4 C4
Ich möchte aber den einzelnen Zeilen andere werte übergeben, nicht nur ein A
zb. Namen drucken
Delphi-Quellcode:
Spalte1 Spalte2 Spalte2
--------------------------
Frank Berlin 030xxx
Uwe Hamburg 055xxx
Klaus Freiburg 075xxx
Und ich weiß nicht wie man sowas machen muss. Finde hier unter Hilfe auch nix mehr
cu. Frank