печать напрямую на LPT.

← →
der (2002-04-10 11:33) [0]

Вопрос избитый, но по поиску ничего не нашел. Нужно из Windows-овской программы получать распечатку как из DOS программ.
Помогите, МАСТЕРА!

← →
Song (2002-04-10 12:00) [1]

AssignPrn();

← →
der (2002-04-10 12:34) [2]

нет не пойдет.
в этом случае используется установленный в windows принтер.
Надо просто отправить текст на LPT.

← →
Song (2002-04-10 12:54) [3]

Ok,
Var ff:TextFile;
...
AssignFile(ff,"lpt1");
ReWrite(ff);
и т.д.

← →
der (2002-04-10 13:11) [4]

спасибо!
Только после выполнения - принтер моргает, а страницу не выплевывает. Я как-то делал это, но не помню.
Не знаешь?

← →
der (2002-04-10 13:13) [5]

← →
Song (2002-04-10 13:16) [6]

Знаю. Вы не сделали CloseFile(ff);

← →
der (2002-04-10 13:20) [7]

нет, там что-то типа прогонка листа... или... новый лист... нет не помню.

← →
Song (2002-04-10 13:22) [8]

У меня получается так.
Для лазерного принтера просто достаточно закрыть очередь на спулере, чтобы печать была инициирована.

← →
der (2002-04-10 13:37) [9]

все. проблемы больше не существует.
Спасибо!

← →
Song (2002-04-10 13:46) [10]

Всегда рад помочь умному человеку.