|
Вопрос # 147/ вопрос открыт / |
|
Доброе время суток, программисты. Как распечатать содержимое Memo USB принтером.
 |
Вопрос задал: 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 (статус: Студент), 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]:
Бубырь Александр Николаевич: Зачем Вы всё время дублируете свои сообщения? Достаточно отправить ответ - в форуме писать то же самое не нужно!
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|