| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Мемо и печать

проходил_мимо_решил_зайти ©   (2005-10-20 17:53:00) 

Доброго времени суток господа. Есть такая проблема: У меня есть на форме есть мемо в котором есть некая инфа и вот хотелось бы эту инфу распечатать, что делать? как быть?

---

проходил_мимо_решил_зайти   (2005-10-21 09:24:00) [1]

Спасибо menart © за полный ответ, все получилось благодарю.

---

menart   (2005-10-20 18:58:00) [2]

только добавь:
uses PRINTERS;

---

menart   (2005-10-20 18:57:00) [3]

procedure TFPrinter.Button1Click(Sender: TObject);
var
 f:textfile;
 i:integer;
begin
With Printer do Begin
 // Начало печати
 AssignPrn(f);
 Rewrite(f);
 // Задали шрифт
 Canvas.Font:=memo1.Font;
 // Печатаем текст
 for i:=0 to memo1.Lines.Count-1 do
   writeln(f,memo1.lines[i]);
 System.CloseFile(f);
 // Конец печати
end;
close
end;

---

umbra   (2005-10-20 18:03:00) [4]

Сохранить в файл (Memo1.Lines.SaveToFile) и напечатать

---

Наверх