Memo Inhalt drucken

[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

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]