Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Delphi Новый топик    Ответить
 Как можно распечатать DOS файл?  [new]
Aleksei
Member

Откуда:
Сообщений: 192
Проблема в том, что, печатать необходимо на матричном принтере, а т.к. при печати из DF5 используется графическая печать то это замедляет скорость печати. Плюс ко всему при открытии DOS файла (который содержит например таблицы) происходит искажение текста (нарушаются столбцы) это недопустимо вообще!
Подсккажите как можно распечатать DOS файл на матричном принтере не теряя скорости печати относительно обычных досовских редакторов
23 окт 02, 13:28    [67907]     Ответить | Цитировать Сообщить модератору
 Re: Как можно распечатать DOS файл?  [new]
ziktuw
Member

Откуда:
Сообщений: 3553
Просто копировать файл в LPT1 или PRN
23 окт 02, 13:47    [67921]     Ответить | Цитировать Сообщить модератору
 Как можно распечатать DOS файл?  [new]
Aleksei
Member

Откуда:
Сообщений: 192
Для матричных это так. А как насчет любого принтера (работающего по порту USB) такой вариант не подходит. А переносить Дос файл в QReport нельзя происхотит искожение текста.
Как можно избавиться от этой проблемы!

PS: Перевод принтера на порт LPT нежелательно!
24 окт 02, 12:01    [68331]     Ответить | Цитировать Сообщить модератору
 Re: Как можно распечатать DOS файл?  [new]
Geka
Member

Откуда:
Сообщений: 10
Возможно искажения текста не будет, если поставить шрифт Курьер.
25 окт 02, 08:48    [68749]     Ответить | Цитировать Сообщить модератору
 Re: Как можно распечатать DOS файл?  [new]
Cat2
Member

Откуда: Petroskoi, Karjala
Сообщений: 145676
Assing(prn,'prn.dat');
reset(prn);
write(prn,userFunction1251to866(...));

В принципе расширение может быть любое, главное, что бы имя было 'prn'. Кроме того, надо озаботится перводом символов из 1251 в 866
25 окт 02, 21:17    [69157]     Ответить | Цитировать Сообщить модератору
 Re: Как можно распечатать DOS файл?  [new]
Cat2
Member

Откуда: Petroskoi, Karjala
Сообщений: 145676
Только сейчас заметил. Разумеется не reset, а rewrite
28 окт 02, 00:12    [69334]     Ответить | Цитировать Сообщить модератору
Все форумы / Delphi Ответить