Распечатка Memo

[Волк]

Как распечатать текст из Memo через принт диалог или подскажите где находится компонент принт

[Котовский]

var i:integer;
tf:TextFile;
begin
inherited;
if PrintDialog.Execute then
assignPrn(tf);
rewrite(tf);
Printer.Canvas.Font:=Memo1.Font;
for i:=0 to memo1.lines.Count-1 do
writeln(tf,memo1.lines[i]);
closeFile(tf);
end;

[Волк]

Сообщение от Котовский

var i:integer;
tf:TextFile;
begin
inherited;
if PrintDialog.Execute then
assignPrn(tf);
rewrite(tf);
Printer.Canvas.Font:=Memo1.Font;
for i:=0 to memo1.lines.Count-1 do
writeln(tf,memo1.lines[i]);
closeFile(tf);
end;

Он выдает ошибку "[DCC Error] Unit1.pas(189): E2003 Undeclared identifier: 'assignPrn'" на строчке assignPrn(tf);


а если удаляю эту строчку то выдает ошибку"[DCC Error] Unit1.pas(190): E2003 Undeclared identifier: 'Printer'" на строчке Printer.Canvas.Font:=Memo1.Font;

[FaTaL]

Лучше использовать BeginDoc и EndDoc, т.к. с assignprn не все принтеры печатают. бывают выдают иероглифы

[Kotofff]

Вот тут глянь :
http://www.delphisources.ru/pages/fa...t_strings.html

[Joystik]

я делал по 1 примеру. у меня на Begin выдаёт ошибку [Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

[CraftR14]

Хы не знаю как насчет мемо но помне так можно просто подругому поступить))
Сохраняем мемо в файл *.txt а потом уже распечатываем и удаляем файл *.txt

[Grag]

А если вот так сделать:

var
  fp:TextFile;
  i:word;
begin
  AssignPrn(fp);
  try
    Rewrite(fp);
    for i:=0 to memo1.lines.Count-1 do
      writeln(tf,memo1.lines[i])
  finally
    ClosFile(fp)
  end
end;