как распечатать ткст из мемо??

[iliili]

помогиите печатаю текст из мемо проседорой

printDialog := TPrintDialog.Create(form1);

  if printDialog.Execute then
  begin

    myPrinter := Printer;
    with myPrinter do
    begin
      BeginDoc;

      Canvas.Font.Size   := 15;

      canvas.textout(20,15,memo1.Text);


      EndDoc;
    end;
  end;
end;

[DeKot]

В компоненте Memo текст находится в виде Lines : TString , а процедура
Canvas.TextOut(x,y,_text) работает со строкой _text: String.
Поэтому сначала выводим на канву построчно текст из Memo , а уж затем канву выводим на принтер.
Процедура построчного вывода может быть следующей:

procedure TextFromMemoOnCanvas;
var  i: byte;
     number: integer; //  количество строк в Мемо
     str: string;
begin
  number:= Form1.Memo1.Lines.Count;
  Form1.Canvas.Font.Size:= 15;
  for i:= 0 to number do
  begin
    str:= Form1.Memo1.Lines[i];
    Form1.Canvas.TextOut(50,50 + 25 * i,str);
  end;
end;

[iliili]

спс большое,
а я голову ламал

[Magomed642]

procedure TForm1.btn3Click(Sender: TObject);

  begin
Printer.BeginDoc ;
 Printer.Canvas.TextOut(20,15,mmo1.Text);

Printer.EndDoc;
end;
   end.

я вот так записал и нормально пошло.