Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 147

/ вопрос открыт /

Доброе время суток, программисты. Как распечатать содержимое Memo USB принтером.

Geron Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Geron (статус: 1-ый класс)
Вопрос отправлен: 29 октября 2006, 23:31
Состояние вопроса: открыт, ответов: 2.

Ответ #1. Отвечает эксперт: Dron

Здравствуйте, Stalker!
Самый стандартный метод: Memo1.Print('Title');
Вместо Title обычно указывают название открытого файла...
Удачи!

Ответ отправил: Dron (статус: Студент)
Время отправки: 30 октября 2006, 06:49

Ответ #2. Отвечает эксперт: ANBsoft

Что-то вроде такого можно (пишу по памяти):
Var p:TextFile;
f:Integer;
Begin
AssignPrn(p);
Printer.Canvas.Font.Size:=10;
Printer.Canvas.Font.Name:='Arial';
Rewrite(p);
for f:=0 to Memo1.Lines.Count-1 do
writeln(p,Memo1.Lines[f]);
CloseFile(p);
End;

Таким образом можно печатать на любом принтере.
(По ошибке сначала послал через форум).

Ответ отправил: ANBsoft (статус: Студент)
Время отправки: 30 октября 2006, 09:35


Мини-форум вопроса

Всего сообщений: 2; последнее сообщение — 30 октября 2006, 12:59; участников в обсуждении: 2.
ANBsoft

ANBsoft (статус: Студент), 30 октября 2006, 09:33 [#1]:

Что-то вроде такого можно (пишу по памяти):
Var p:TextFile;
f:Integer;
Begin
AssignPrn(p);
Printer.Canvas.Font.Size:=10;
Printer.Canvas.Font.Name:='Arial';
Rewrite(p);
for f:=0 to Memo1.Lines.Count-1 do
writeln(p,Memo1.Lines[f]);
CloseFile(p);
End;
Ерёмин А.А.

Ерёмин А.А. (статус: *Администратор), 30 октября 2006, 12:59 [#2]:

Бубырь Александр Николаевич: Зачем Вы всё время дублируете свои сообщения? Достаточно отправить ответ - в форуме писать то же самое не нужно!

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 12 декабря 2017, 19:08
Выполнено за 0.05 сек.
Рейтинг@Mail.ru