请问怎么打印Memo1中的TEXT内容？

Question

请问怎么打印Memo1中的TEXT内容？

Answer 1

procedure form.printmemo(s:tmemo;x,y,z:integer);
var
i:integer;
begin
   for i:=0 to s.Lines.Count-1 do
    begin
      printer.Canvas.TextOut(x,y,s.lines.strings[i]);
      y:=y+z;
    end;
end;

Answer 2

可以先设置打印机
然后，把 memo1中的内容放到
printer.canvas中去就可以了

Answer 3

procedure form.printmemo(s:tmemo;x,y,z:integer);
var
i:integer;
begin
   for i:=0 to s.Lines.Count-1 do
    begin
      printer.Canvas.TextOut(x,y,s.lines.strings[i]);
      y:=y+z;
    end;
end;