Текущий архив: 2006.04.02;
Скачать: 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 вся ветка
Текущий архив: 2006.04.02;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.029 c
