Скачать: CL | DM;

Непрерывная печать на принтер   Найти похожие ветки 

← →
Алексей Коваленко   (2002-05-31 10:16) [0]

День добрый,
Имеется матричный принтер с лентой, необходимо раз в 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:01) [1]

Попробуй так:

var
PRN : TextFile;
.........................
Assign (PRN, "LPT1")
Write(PRN, #27);
Write(PRN, #64);

// Здесь выводим все, что нам надо

Close(PRN);

---

← →
SEM ©   (2002-05-31 14:03) [2]

Поправка: После Assign
Rewrite (PRN);

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c