Отправить на печать все строки 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.

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

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

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

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

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

Удачи.

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