报表如何打印Memo字段内容?

Question

要打印的内容在Memo控件中,希望打印控件能自动适应要打印的内容,使内容能全部打印出来.

Answer 1

程序员杂志的去年(合订本)某期有个delphi专家门诊有类似的代码,去看看吧,我得被借走了,否则全都打出来给你了

Answer 2

给你一个打印MEMO里的内容的函数：
procedure printmemo(lst:TStrings);
var
  i,line:integer;
begin
  line:=0;
  printer.begindoc;
  for i:=0 to lst.count-1 do
    begin
      printer.canvas.textout(0,line,lst[i]);
      line:=line+abs(printer.canvas.font.height);
      if (line>=printer.pageheight) then
          printer.newpage;
   end;
  printer.enddoc;
end;
使用方法：printmemo(memo.text);

Answer 3

同意 cg1120，
但是，.text 是 TStrings类型的吗 ？
应该是.Items or .Lines吧!