Имя пользователя:
Пароль:
 | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Разное - Печать средствами Pascal

Ответить
Настройки темы
Разное - Печать средствами Pascal

Аватара для Hector

Misanthrope


Сообщения: 474
Благодарности: 38


Конфигурация

Профиль | Отправить PM | Цитировать


Изменения
Автор: Hector
Дата: 27-01-2010
Есть файл состоящий из записей:
Код: Выделить весь код
type 
group=record
name:string;
boss:string;
style:string;
end; 

var
data: file of group;
Необходимо вывести его на печать средствами Pascal (в виде процедуры). Принтер Usb.
Проблема в том, что вразумительной информации как это сделать не нашел.

использование модуля Printer не прокатывает, ошибка 160

-------
Information must be free!
Нет границ, есть только препятствия


Отправлено: 22:29, 27-01-2010

 
pva pva вне форума

Аватара для pva

Ветеран


Сообщения: 1180
Благодарности: 279

Профиль | Отправить PM | Цитировать


(Code: 160; Meaning: ′Ошибка записи устройства′ {Device write fault}),
http://www.excode.ru/art4311.html

Вы пытаетесь из ДОСа писать что-то на принтер USB? Какой компилятор используется, в какой среде, как (насколько успешно) печатают программы сторонних производителей?

Отправлено: 07:33, 28-01-2010 | #2



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

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Аватара для Hector

Misanthrope


Сообщения: 474
Благодарности: 38

Профиль | Отправить PM | Цитировать


Цитата pva:
Вы пытаетесь из ДОСа писать что-то на принтер USB? »
Выходит что так
Цитата pva:
Какой компилятор используется, в какой среде »
Turbo Pascal 7.0, Windows 7
Цитата pva:
как (насколько успешно) печатают программы сторонних производителей? »
Что имеется ввиду?

-------
Information must be free!
Нет границ, есть только препятствия


Отправлено: 13:32, 28-01-2010 | #3


Старожил


Сообщения: 435
Благодарности: 63

Профиль | Отправить PM | Цитировать


Цитата e-Hector:
Turbo Pascal 7.0, Windows 7 »
А почему не использовать современный?

Цитата e-Hector:
как (насколько успешно) печатают программы сторонних производителей? »
Что имеется ввиду?
»
Запускаем старый добрый Norton/Volkov и добиваемся печати текстового файла из него

-------
black-eric.livejournal.com


Отправлено: 15:25, 28-01-2010 | #4

pva pva вне форума

Аватара для pva

Ветеран


Сообщения: 1180
Благодарности: 279

Профиль | Отправить PM | Цитировать


Скорее всего у вашего принтера отключена имитация LPT-порта для программ DOS. Могут ещё возникнуть проблемы с кодировкой кириллицы, это решается специальными программами, которые читают LPT и отрисовывают на принтере в Windows. Либо включайте LPT, либо бросайте этого динозавра (turbo pascal) и переходите на делфи.

Отправлено: 18:24, 28-01-2010 | #5


Аватара для Hector

Misanthrope


Сообщения: 474
Благодарности: 38

Профиль | Отправить PM | Цитировать


Насчет динозавра, я бы бросил, но преподаватель не оценит (это задание по лабораторной работе). Можно подробнее насчет включения LPT? Принтер Lexmark z705

-------
Information must be free!
Нет границ, есть только препятствия


Отправлено: 20:10, 28-01-2010 | #6

pva pva вне форума

Аватара для pva

Ветеран


Сообщения: 1180
Благодарности: 279

Профиль | Отправить PM | Цитировать


похоже такая галочка для любого принтера была в Windows 9x, в XP уже не нашёл
остаётся 2 варианта:
(1)
  • в реестре HKLM/System/CurrentControlSet/Control/Session Manager/DOS Devices добавляем LPT1=\DosDevices\c:\printer.txt
  • перезагружаемся
  • создаём пустой файл printer.txt и запускаем программу, печатаем из неё
  • смотрим этот файл блокнотом со шрифтом Terminal. При необходимости можно его распечатать на принтере
(2)
пользуемся спецсофтом http://www.xpdeveloper.com/srch-4ams2nuck6.html

Отправлено: 10:29, 29-01-2010 | #7


Аватара для Hector

Misanthrope


Сообщения: 474
Благодарности: 38

Профиль | Отправить PM | Цитировать


Т. е. на паскале это без всяких
Цитата pva:
# в реестре HKLM/System/CurrentControlSet/Control/Session Manager/DOS Devices добавляем LPT1=\DosDevices\c:\printer.txt
# перезагружаемся
# создаём пустой файл printer.txt и запускаем программу, печатаем из неё
# смотрим этот файл блокнотом со шрифтом Terminal. При необходимости можно его распечатать на принтере »
сложностей не реализовать?

-------
Information must be free!
Нет границ, есть только препятствия


Отправлено: 16:40, 29-01-2010 | #8

pva pva вне форума

Аватара для pva

Ветеран


Сообщения: 1180
Благодарности: 279

Профиль | Отправить PM | Цитировать


это реализуется редактором реестра, блокнотом и проводником. Паскаль (который думает, что работает по DOS), знать об этом не будет. Паскалем нужно сделать шаг
Цитата e-Hector:
запускаем программу, печатаем из неё »

Отправлено: 09:44, 30-01-2010 | #9


Аватара для Hector

Misanthrope


Сообщения: 474
Благодарности: 38

Профиль | Отправить PM | Цитировать


Да, но так называемая печать пойдет в созданный файл, после чего его нужно распечатывать в реальности, а нужно чтобы печать происходила сразу же, без лишних телодвижений

-------
Information must be free!
Нет границ, есть только препятствия


Отправлено: 18:28, 31-01-2010 | #10



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Разное - Печать средствами Pascal

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Разное - Всё о TURBO PASCAL (обсуждение, помощь в написание программ, ошибки, Pascal ABC) Loading Программирование и базы данных 41 20-05-2015 15:28
RDP/Citrix/Term - [решено] печать через уд.раб. стол <RDP, Windows 2003, печать> ВладимирТ Сетевые технологии 7 14-02-2008 12:10
печать сопровождается "голосом" ("Печать начата", "Печать завершена") Shift Хочу все знать 2 03-07-2006 22:30
Офис и Текст - Печать PRN файлов (печать в файл) ivieDVeD Программное обеспечение Windows 12 13-04-2006 16:49
C/C++ vs Pascal idLe Программирование и базы данных 21 18-04-2003 23:23




 
Переход