Скачать: CL | DM;

Не удаётся печать из 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?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c