Memofeld inhalt drucken

[150gozilla]

Hallo,

Wie kann man den den Inhalt(Text) eines Memofeldes drucken ?

[Treffnix]

Hallo.

z.B. so:

Delphi-Quellcode:

Printer.BeginDoc;
Printer.Canvas.TextOut(0, 0, Memo1.Lines.Text);
Printer.EndDoc;

Dazu musst du die Unit Printers in die uses aufnehmen.

[150gozilla]

Ja danke, das funktioniert.

Aber leider druckt er mir alles in eine reihe

kann man da noch was machen ?

[Flocke]

Du meinst, dass er keinen automatischen Zeilenumbruch macht, oder?

Lösung 1: Nimm ein RichEdit-Control und drucke mit dessen Print-Methode

Lösung 2: Nimm ein TextFile, weise es mit AssignPrn dem Drucker zu und drucke jede Zeile mit WriteLn dorthin

Es gibt auch noch 'ne Menge anderer Möglichkeiten (DrawText benutzen usw.).

[150gozilla]

Zitat von Flocke:

Du meinst, dass er keinen automatischen Zeilenumbruch macht, oder?

Lösung 1: Nimm ein RichEdit-Control und drucke mit dessen Print-Methode

Lösung 2: Nimm ein TextFile, weise es mit AssignPrn dem Drucker zu und drucke jede Zeile mit WriteLn dorthin

Es gibt auch noch 'ne Menge anderer Möglichkeiten (DrawText benutzen usw.).

also, jetzt druckt er alles in eine reie.

Aber im Memo habe ich jetzt z.B 3 Zeilen text, so soll er mir das auch drucken, also er soll mir einen zeilenumbruch m achen

[Treffnix]

Ungetestet, aber so ähnlich könnte es gehen :

Delphi-Quellcode:

var i: Integer;

printer.BeginDoc;
for i := 0 to memo1.lines.count -1 do Begin
  printer.canvas.textout( 0, i * printer.Canvas.TextHeight( Memo1.Lines[i] ) , Memo1.Lines[i]);
End;
printer.EndDoc;

[150gozilla]

danke, funktioniert einwandfrei

[smart]

Du kannst auch so ein TMemo ausdrucken:

Delphi-Quellcode:

Var
    Zeile: Integer;
    PrintText: TextFile;
begin
  AssignPrn(PrintText);
  Rewrite(PrintText);
  Printer.Canvas.Font := Memo1.Font;
  for Zeile := 0 to Memo1.Lines.Count - 1 do
  Writeln(PrintText, Memo1.Lines[Zeile]);
  CloseFile(PrintText);

[150gozilla]

Ja, so würde es auch gehen.

[tigerman33]

Gibt es denn nirgends eine einfachere Kapselung von Druckern? Wo ich einfach so eine Art "WriteLn"Befehl aufrufen kann, und der druckt das dann automatisch, mit Zeilenumbruch etc?