Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.15;
Скачать: 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 вся ветка

Текущий архив: 2002.08.15;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.012 c
14-48295
Slavka
2002-07-21 22:45
2002.08.15
Движок!!


4-48368
_Antiox_
2002-06-10 11:12
2002.08.15
COM. Сервера Автоматизации 1.


6-48227
nejest
2002-06-01 01:51
2002.08.15
отправка html файла по e-mail


3-47914
Larisa
2002-07-24 13:12
2002.08.15
Внесение новой записи в БД


3-47915
Black Cat
2002-07-24 10:53
2002.08.15
Баг с хранимой процедурой