IPB
ЛогинПароль:

> Правила раздела!

1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!

 
 Ответить  Открыть новую тему 
> Печать на лазернике, (объединенная тема)
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 16
Пол: Мужской

Репутация: -  0  +


Не подскажет ли кто,
есть ли возможность печатать на лазерном принтере, подключенным через шину USB, из текста паскалевской программы (например, с использованием LST или еще как-нибудь). Решение "в лоб" дает ошибку 160.
А может не мучиться, вернуться к матричному принтеру, подключить его через LPT, и дело с концом? Но обидно, а вдруг есть решение, пусть даже и не очень простое, а я его не знаю.


--------------------
Лучше не знать вовсе, чем знать плохо.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






какая операционная система?
Malice ? если да, то вы уже можете пользоваться своим аккаунтом.

Сообщение отредактировано: Oleg_Z -
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






Цитата(Guest @ 12.07.05 22:05)
какая операционная система?
Malice ? если да, то вы уже можете пользоваться своим аккаунтом.

Да я. Только не могу еще. до 25.07 без объяснения причин. admin@ молчит.

AntiOfftopic:
Если win98, то свойства принтера\сведения\назначить порт.
Если winXP, то Net use lpt1 ... и т.д.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Знаток
****

Группа: Пользователи
Сообщений: 303
Пол: Мужской
Реальное имя: Роман

Репутация: -  2  +


Сомневаюсь, что на ТП это вообще возможно. Может в Win9x.

А, вообще то, во Free Pascal с этим как раз проблем быть не должно. И синтаксис тот же. Только стоит ли он этого для разового дела?
Если тебе на 1 раз, то можешь выложить свою программу здесь или мне на ПМ, и я (или кто-то другой) скомпилирует программу во Free Pascal.


--------------------
Romiras HomeLab- материалы и статьи по разработке ПО, моделирование алгоритмов, обработка и анализ информации, нейронные сети, машинное зрение и прочее.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






Цитата(Romtek @ 13.07.05 11:11)
Сомневаюсь, что на ТП это вообще возможно. Может в Win9x.


Нет, по идее должно, по моим предложенным вариантам. Печатать в этом случае на lpt1.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Новичок
*

Группа: Пользователи
Сообщений: 16
Пол: Мужской

Репутация: -  0  +


Спасибо! Я понял -- в TP7 это невозможно.
(Система Windows 98, порт SSUSB, принтер XEROX 3130).
Действительно, устройство USB не прописано в стандартном модуле Printer,
а переназначить нельзя, так как нет оператора Assign в этом Windows.
Конечно, можно бы поковыряться в модуле, но мне это не по зубам.
Еще раз спасибо. Пока буду выходить из положения копированием экрана.


--------------------
Лучше не знать вовсе, чем знать плохо.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Новичок
*

Группа: Пользователи
Сообщений: 16
Пол: Мужской

Репутация: -  0  +


Обварившись на USB, перемонтировал машину. Теперь это порт LPT, принтер HP LaserJet 1100, и система Windows98. Однако теперь новая напасть. При работе элементарной программы:
  Uses Printer;
Begin
Writeln(LST,'123');
End.

распечатка "застревает" в самом принтере и вытолкнуть ее оттуда только подачей на печать какого-либо Winword'овского текста.
Не подскажет ли кто, что можно добавить в паскалевскую программу, или еще куда-нибудь. чтобы распечатываемый текст сразу выталкивался из буфера принтера. а не только при его переполнении. (flush и #26 не помогают). Если это какие-то спецкоды принтера, то где их искать и как подать принтеру.

Объединено из темы "Еще раз о печати на лазернике"


--------------------
Лучше не знать вовсе, чем знать плохо.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Гость






Попробуй так:
Uses Printer;
Begin
Writeln(Lst,'123');
Close(Lst);
End.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Новичок
*

Группа: Пользователи
Сообщений: 16
Пол: Мужской

Репутация: -  0  +


Увы! Все тоже самое. Принтер молчит, хотя и моргает, что в память свою все получил.


--------------------
Лучше не знать вовсе, чем знать плохо.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 15.05.2024 3:23
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name