if PrintDialog1.Execute then
RichEdit1.Print('RichEdit1.Lines');
Jeg ved denne funktion virker i en rich til at printe men i en memo1 virker den ikke. Hvordan er koden til en memo1 (altså til at printe)?
Theis F. Hinz
(Shafh)
Theisf@stofanet.dk
Man kommer aldrig videre, hvis alle er enige...
Først skal du sætte Printers ind i din uses liste..
Også gør du sådan:
procedure TForm1.Button1Click(Sender: TObject);
begin
If PrintDialog1.Execute then
with Printer do
begin
BeginDoc;
Canvas.TextRect(Rect(200,200,PageWidth-200,PageHeight-200),
200, 200, Memo1.Lines.Text);
EndDoc;
end;
end;
end.
________________________________
www.ssjpride.dk