| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Непрерывная печать на принтер [D6, WinXP]
Алексей Коваленко © (2002-05-31 10:16:00)День добрый,
Имеется матричный принтер с лентой, необходимо раз в 10 минут скидывать блоки информации по 2-3 строки, пробывал так:
AssignPrn(LPT);
Rewrite(LPT);
WriteLn(LPT,"Строка 1");
WriteLn(LPT,"Строка 2");
WriteLn(LPT,"Строка 3");
System.CloseFile(LPT);
Все печатается но после закрытия LPT прокручивает страницу, это сколько же бумаги надо, как бы убрать эту прокрутку
Пробывал не закрывать
AssignPrn(LPT);
Rewrite(LPT);
WriteLn(LPT,"Строка 1");
10 минут
WriteLn(LPT,"Строка 2");
10 минут
WriteLn(LPT,"Строка 3");
System.CloseFile(LPT);
не печает пока не закроешь, впринципе устроило бы если печать шла до закрытия, но выплевывать должен сразу.
Алексей
SEM (2002-05-31 14:03:00) [1]Поправка: После Assign
Rewrite (PRN);
SEM (2002-05-31 14:01:00) [2]Попробуй так:
var
PRN : TextFile;
.........................
Assign (PRN, "LPT1")
Write(PRN, #27);
Write(PRN, #64);
// Здесь выводим все, что нам надо
Close(PRN);
| |
