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

:

markieren

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:

markieren

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?

Memofeld inhalt drucken

Memofeld inhalt drucken

Re: Memofeld inhalt drucken

Re: Memofeld inhalt drucken

Re: Memofeld inhalt drucken

Re: Memofeld inhalt drucken

Re: Memofeld inhalt drucken

Re: Memofeld inhalt drucken

Re: Memofeld inhalt drucken

Re: Memofeld inhalt drucken

Re: Memofeld inhalt drucken

Forumregeln

150gozilla Registriert seit: 1. Sep 2005 Ort: Taunusstein 116 Beiträge Delphi 5 Professional	#1 Memofeld inhalt drucken 5. Okt 2005, 08:49 Hallo, Wie kann man den den Inhalt(Text) eines Memofeldes drucken ? Chris
	Zitat

Treffnix Registriert seit: 25. Jun 2003 Ort: AC 740 Beiträge Delphi 7 Professional	#2 Re: Memofeld inhalt drucken 5. Okt 2005, 09:03 Hallo. z.B. so: markieren Delphi-Quellcode: Printer.BeginDoc; Printer.Canvas.TextOut(0, 0, Memo1.Lines.Text); Printer.EndDoc; Dazu musst du die Unit Printers in die uses aufnehmen.
	Zitat

150gozilla Registriert seit: 1. Sep 2005 Ort: Taunusstein 116 Beiträge Delphi 5 Professional	#3 Re: Memofeld inhalt drucken 5. Okt 2005, 09:09 Ja danke, das funktioniert. Aber leider druckt er mir alles in eine reihe kann man da noch was machen ? Chris
	Zitat

Treffnix Registriert seit: 25. Jun 2003 Ort: AC 740 Beiträge Delphi 7 Professional	#6 Re: Memofeld inhalt drucken 5. Okt 2005, 09:25 Ungetestet, aber so ähnlich könnte es gehen : markieren 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;
	Zitat

150gozilla Registriert seit: 1. Sep 2005 Ort: Taunusstein 116 Beiträge Delphi 5 Professional	#7 Re: Memofeld inhalt drucken 5. Okt 2005, 09:29 danke, funktioniert einwandfrei Chris
	Zitat

150gozilla Registriert seit: 1. Sep 2005 Ort: Taunusstein 116 Beiträge Delphi 5 Professional	#9 Re: Memofeld inhalt drucken 5. Okt 2005, 09:36 Ja, so würde es auch gehen. Chris
	Zitat

tigerman33 Registriert seit: 30. Jul 2005 Ort: München 423 Beiträge Delphi 2005 Professional	#10 Re: Memofeld inhalt drucken 5. Okt 2005, 14:33 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? Christian Der Computer hilft mir, Probleme zu lösen, die ich ohne Computer nicht hätte.
	Zitat