SelText im Memo drucken

[Hansa]

Moin,

ich habe hier ein unerwartetes Problemchen. Es geht darum, ein Stück eines grösseren Memos auszudrucken. Ich markiere also mit der Maus einen Block, drücke rechte Maustaste, Popupmenu geht auf, "drucken" usw. SelText soll nun gedruckt werden. Das ist jetzt lediglich ein string. Und der soll gedruckt werden. Wie geht das jetzt möglichst einfach ?

Muss ich jetzt tatsächlich den einfachen string in einen Report verfrachten oder ihn gar als Grafik behandeln und über Canvas drucken ? Oder muss ich sogar ein RichEdit missbrauchen, nur um die Methode print zu benutzen ? Den markierten Block sehe ich ja schon auf dem Bildschirm, da braucht man kein visuelles Elemst mehr zusätzlich. Also : ich will lediglich, sagen wir mal 10 Zeilen drucken. Früher hätte ich geschrieben

Delphi-Quellcode:

writeln (Drucker,Drucktext);

und fertig.

[jaenicke]

Zitat:

Zitat von Hansa (Beitrag 1309873)

Muss ich jetzt tatsächlich den einfachen string in einen Report verfrachten oder ihn gar als Grafik behandeln und über Canvas drucken ?

Ja.

Zitat:

Zitat von Hansa (Beitrag 1309873)

Also : ich will lediglich, sagen wir mal 10 Zeilen drucken. Früher hätte ich geschrieben

Delphi-Quellcode:

writeln (Drucker,Drucktext);

und fertig.

Nichts anderes machst du doch mit Printer.Canvas.TextRect oder Printer.Canvas.TextOut. Beides ist nur ein Befehl, wo ist das Problem? Du musst natürlich den Drucker erst auswählen und BeginDoc..EndDoc aufrufen, aber das war es doch schon.

[Perlsau]

Möglichst einfach wäre, den String direkt auf dem Canvas des Druckers auszugeben. TMemo besitzt keine Druckmethode.

[p80286]

Für einfache Ausdrucke nutze ich die angehängte Unit.

Gruß
K-H