Главная страница
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.01 c
1-48203
ghg
2002-08-01 08:02
2002.08.15
Работа со строками


3-47988
Daniil
2002-07-26 16:05
2002.08.15
Как сохранить variant array


6-48230
Lefan
2002-05-31 10:06
2002.08.15
TNMHTTP и Proxy


1-48152
Deuss
2002-08-01 19:47
2002.08.15
Помогите, plz...


14-48246
mvg_first
2002-07-18 19:28
2002.08.15
Кто и как использует продукты Rational