Memo打印

 

 

加入Printers单元，

;
   Left ;
    y ;; do
      begin
        Printer.Canvas.TextOut(x,y,Memo1.Lines[i]);
        y := y + LineSpace;
        if(y > PageHeight - Top) then
          begin
            Printer.NewPage;
            y := Top;
          end;
      end;
    Printer.EndDoc;
end;

来自为知笔记(Wiz)