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]