Скачать: CL | DM;

Отправить на печать все строки TMemo   Найти похожие ветки 

← →
Димон   (2006-02-27 08:10) [0]

Добрый день мастра  ! Подскажите как отправить содержимое
memo на печать ? Заранее спасибо...

---

← →
Defunct ©   (2006-02-27 08:13) [1]

Димон, искрене советую вам вместо memo взять richedit и воспользоваться процедурой Print

---

← →
Димон   (2006-02-27 08:20) [2]

Я понимаю, что глупо использовать memo когда есть масса других возможностей. Просто это задача в колледж которую придумал не я,
подскажите плиииз как отправить на печать Tmemo.

---

← →
Defunct ©   (2006-02-27 08:32) [3]

Довольно сложно.

подключаем модуль Printers, читаем справку про функцию Printer и класс TPrinter.. формируем постранично Bitmap"ы и выводим с помощью Printer.BeginDoc/Printer.Canvas.Draw/Printer.EndDoc

Более подробный пример можете посмотреть в реализации методов TForm.Print, RichEdit.Print.

---

← →
Almaz ©   (2006-02-27 09:50) [4]

> Довольно сложно.

Ну это смотря как делать.


> Добрый день мастра  ! Подскажите как отправить содержимое
>
> memo на печать ? Заранее спасибо...

Подключаете модуль Printers, а дальше четыре строчки кода:


var
 P: TextFile;
begin
 AssignPrn(P);
 Rewrite(P);
 Write(P, Memo1.Text);
 CloseFile(P);
end;

Удачи.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.04 c