Hallo,
ganz einfach:
Code:
if PrintDialog1.Execute then begin
AssignPrn(PrintText); {Zuweisung von PrintText an den Drucker}
Rewrite(PrintText); {Erzeugen und Öffnen der Ausgabedatei}
Printer.Canvas.Font := Memo1.Font;{Zuweisung der eingestellten Schriftart an die Leinwand}
//Schreiben des Inhalts von Memo1 in das Druckerobjekt
for i := 0 to Memo1.Lines.Count - 1
do Writeln(PrintText, space(leftmargin) + Memo1.Lines[i]);
CloseFile(PrintText); //Schließen der Druckervariablen
end;
Ich nutze das zwar nicht für das Drucken von Datensätzen, sondern für die Ausgabe der in einem Memo angezeigten Struktur einer Datenbank.
Vielleicht genügt es ja Deinen Ansprüchen oder liefert eine passende Idee.
mfg
eddy