请问怎样把memo里的内容打印出来？？？

Question

如题，越简单越好，只要能打印就行了

Answer 1

uses printers;var 
printfile : textfile;   if printdialog.Execute then
   begin
        assignprn(printfile);
        rewrite(printfile);
        try
                printer.canvas.font.Size := 12;
                for i := 0 to rep_memo.Lines.Count - 1 do
                        writeln(printfile,rep_memo.lines.strings[i]);        finally
                system.closefile(printfile);
        end;

Answer 2

少一个end；这是简单的文本打印