[mocrosoft7]

как напечатать на принтере с memo?

[eXplorer]

а если так

Код:

1 2 3 4 5

begin Printer.BeginDoc; Printer.Canvas.TextOut(0,0,memo1.Text); Printer.endDoc; end;

сам ни разу не печатал, поэтому точно не знаю

[eXplorer]

юзать гугл надо
вот пример печати мэмо с установкой шрифта (с другого форума):

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

procedure PrintMemo(Strings: TStrings); Var Prn: TextFile; i: word; begin AssignPrn(Prn); try  Rewrite(Prn); try  Printer.Canvas.Font:=Form1.Memo1.Font;  Printer.Canvas.Font.size=12; for i := 0 to Strings.Count - 1 do    writeln(Prn, Strings.Strings[i]);  finally   CloseFile(Prn);  end;  except     on EInOutError do     MessageDlg('Ошибка печати текста.', mtError, [mbOk], 0); end; end;     procedure TForm1.Button1Click(Sender: TObject); begin   PrintMemo(Memo1.Lines); end;

[mocrosoft7]

спасибо.....