Не удаётся печать из Turbo Pascal 7.0

← →
programmist87 © (2007-06-03 23:14) [0]

var a1,b1,c1:string; pr:text; . . . a1:="..."; b1:="..."; c1:="..."; assign(pr,"lpt1"); {$i-} rewrite(pr); er:=ioresult<>0; writeln(pr,a1); er:=er or (ioresult<>0); writeln(pr,b1); er:=er or (ioresult<>0); writeln(pr,c1); er:=er or (ioresult<>0); close(pr); {$i+} if not er then write("Печать успешно завершена") else write("Ошибка печати");

Программа пишет "Печать успешно завершена", но при этом принтер не печатает.
P.S. Принтер включён. Подключён к lpt1.

← →
X9 © (2007-06-03 23:22) [1]

Почему-то мне не нравится сочетание TurboPascal 7 и WinXP.
Возможно, дело в некорректной работе виртуальной машины MS-DOS с принтером.

← →
Kilkenny (2007-06-03 23:33) [2]

> Возможно, дело в некорректной работе виртуальной машины
> MS-DOS с принтером.

Добавлю, что принтер (современный) вообще может из доса не печатать.

> Программа пишет "Печать успешно завершена"

Это всего-навсего свидетельство успешно отправленных данных на лпт1....

мож стоит юзать WinPrn?

Не удаётся печать из Turbo Pascal 7.0 Найти похожие ветки