Непрерывная печать на принтер

← →
Алексей Коваленко (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);

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