| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Не удаётся печать из Turbo Pascal 7.0 [XP]
programmist87 © (2007-06-03 23:14:00)
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.
Kilkenny (2007-06-03 23:33:00) [1]
> Возможно, дело в некорректной работе виртуальной машины
> MS-DOS с принтером.
Добавлю, что принтер (современный) вообще может из доса не печатать.
> Программа пишет "Печать успешно завершена"
Это всего-навсего свидетельство успешно отправленных данных на лпт1....
мож стоит юзать WinPrn?
X9 (2007-06-03 23:22:00) [2]Почему-то мне не нравится сочетание TurboPascal 7 и WinXP.
Возможно, дело в некорректной работе виртуальной машины MS-DOS с принтером.
| |
