我想写一个打印的程序！

Question

我想写一个打印DBmemo中内容的程序，请帮个忙，该怎么写？

Answer 1

怎么没有人回复呢？button的click事件。谢谢！

Answer 2

with  Printer do begin
          begindoc;
          for i:=0 to memo1.Lines.Count-1 do
          begin
          Canvas.TextOut(240,222+i*40,memo1.Lines.Strings[i]);
          canvas.Font.Size:=11;
          end;
          EndDoc;
    end;