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:

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.).

:wiejetzt: 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. :mrgreen:

[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?