Memo Inhalt drucken

[deusmac]

Ich würd gern einfach den Inhalt eines Memo Feldes drucken. Wie mache ich das mit Print Dialog. Oder wenn diese Möglichkeit blöde ist wie mach ich das noch einfacher.

[Alexander]

Such einfach mal:
Memo suchen
Richedit suchen

[deusmac]

Hilft mir gar nicht weiter. Warum soll man suchen mitsuchen.
Gibts keine lösung wie beim SaveDialog dass man einfach sagt

if SaveDialog.Execute then memo.lines.print

oder so ähnlich.

PS.:Hab kaum erfahrung in delphi. Lerne grad erst in der Schule ein bisschen.

[Luckie]

Etwas mehr Eigeninitative und man findet so was http://www.happyarts.de/delphi/faq/text_dru.htm mit Google.

[deusmac]

Thx

[fkerber]

Hi!

Oder auch ganz einfach:

Delphi-Quellcode:

begin
if PrintDialog1.Execute then
begin
  with Printer do
    begin
richedit1.print('');
   end;
  end;
end;

(printers noch in die uses-Klausel schreiben)

ciao fkerber

[Frank Reiser]

Delphi-Quellcode:

begin 
if PrintDialog1.Execute then 
begin 
  with Printer do 
    begin 
richedit1.print(''); 
   end; 
  end; 
end;

Das ist schon richtig, wobei es auch

Delphi-Quellcode:

begin 
if PrintDialog1.Execute then richedit1.print(''); 
end;

getan hätte :lol:

Ich habe aber auch ein Frage: Ich habe mit folgendem Code die Seitenränder im RichEdit Feld verändert, diese Einstellungen werden aber beim Drucken nicht übernommen:

Delphi-Quellcode:

//Seitenränder festlegen
  SendMessage(RichEdit1.Handle, EM_GETRECT, 0, LongInt(@Rect));
  Rect.Left:= 80;
  Rect.Top:=80;
  Rect.Right:=633;
  Rect.Bottom:=967;
  SendMessage(RichEdit1.Handle, EM_SETRECT, 0, LongInt(@Rect));
  RichEdit1.Refresh;

Geht das nur über die Printer Einstellungen oder hat jemand eine Idee.

Gruss
Frank

[edit=MrSpock]Code Tags eingefügt. Dazu gibt es die Schalter oben. Mfg, MrSpock[/edit]