DBGrid ausdrucken

[Thomas F]

Zitat von mkinzler:

FreeReport ist genauso wie http://reportman.sourceforge.net/ frei verfügbar

Aber nur die Demo-Versionen !

Man kann auch alle Felder einzeln auslesen und dann aufs Papier bringen,

ist zwar umständlich , aber es funktioniert.

Delphi-Quellcode:

procedure TForm1.Drucken1Click(Sender: TObject);

begin
if printdialog1.Execute then
begin

printer.begindoc;
Printer.Canvas.Font.Height:=80;
Printer.Canvas.TextOut(300,300,Clientdataset1.FieldValues['Feld1']);
Printer.Canvas.TextOut(1000,300,Clientdataset1.FieldValues['Feld2']);
.
.
.
printer.enddoc;
end;