Memo打印

 

 

加入Printers单元，

var
  Left,Top,PageHeight,i,x,y,LineSpace : integer;
begin
   Top := 20;
   Left := 20;
    y := Top; //Top 起始行的位置,比如设置 Top := 20;
    x := Left; //Left 左边的起始位置，比如设置：Left := 20;
    PageHeight := 2600; //A4得纸张大概是这么多，我既不太清，你可以通过某个过程先得到这个数据，
    LineSpace := 24; //行间距
    Printer.BeginDoc;
     for i := 0 to Memo1.Lines.Count - 1 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)