Printer.BeginDoc; for i:=0 to Memo1.Lines.Count-1 do Canvas.TextOut(50,50+i*20,Memo1.lines[i]); Printer.EndDoc; end;