Печать текстового файла DOS на лазерный принтер средствами Delpfi

← →
TAN_K (2006-01-10 15:12) [0]

Господа , здравствуйте ! Всех поздравляю с праздниками .
Господа , подскажите , как сделать распечатку текстового файла . Текстовый файл создан DOS-программой написанной на CLARION , установили лазерный принтер , необходимо распечатать тексовый файл , чтобы пользователь не задумывался ни о чем .
Всем спасибо .

← →
dioman © (2006-01-10 15:13) [1]

скопируй в prn

← →
Виталий Панасенко (2006-01-10 17:29) [2]

http://dvtb.amur.ru/~dosprn

← →
ANB © (2006-01-10 17:35) [3]

> dioman © (10.01.06 15:13) [1]
> скопируй в prn

Не всегда поможет (обязательна загрузка русского шрифта).

> Виталий Панасенко (10.01.06 17:29) [2]

Чего то название знакомое. А скриншотик не зашлет мне кто нибудь ?
Belousov[sobaka]smartcard.ru

← →
Reindeer Moss Eater © (2006-01-10 17:44) [4]

на лазерный принтер средствами Delpfi

А не изврат ли это, имея программу на D и текстовый файл в DOS кодировке загружать шрифты в принтер?

← →
Leonid Troyanovsky © (2006-01-10 18:06) [5]

> Reindeer Moss Eater © (10.01.06 17:44) [4]

> А не изврат ли это, имея программу на D и текстовый файл
> в DOS кодировке загружать шрифты в принтер?

Дык, если у него нет шрифтов, то чего выводить в тексте.

--
Regards, LVT.

← →
Reindeer Moss Eater © (2006-01-10 18:08) [6]

Перекодировать в win1251 и напечатать хоть тем же квикрепортом.

чтобы пользователь не задумывался ни о чем .

← →
beglec © (2006-01-10 18:11) [7]

->Reindeer Moss Eater © (10.01.06 17:44) [4]
да это чистой воды извращение :)

-> TAN_K
Но если тебе всетаки нужно такое извращение, предлагаю следующее решение твоего вопроса:
Судя по написанию "DelpFi" явно начинающий значит придется писать подробно.

Кидаем на форму компонент RichEdit;
Находится он в закладочке Win32;
изменяешь свойство Font.Name на шрифтик типа "Courier New" либо "Courier New Cyr" с поддержкой русского языка аля кирилица
после нажатия кнопочки делаешь загрузочку файлика. И в печать :)
procedure TForm1.Button1Click(Sender: TObject); begin RichEdit1.Lines.LoadFromFile("название файла.txt "); RichEdit1.Print("Название документа в очереди печати"); end;
"... и зверей убивать не надо (с) Святой отец Федор"

← →
Reindeer Moss Eater © (2006-01-10 18:17) [8]

> и напечатать хоть тем же квикрепортом.

Во первых я не советовал именно QR.

Во вторых RichEdit не меньшее извращение. Зачем показывать файл, если его надо просто напечатать?

← →
Johnmen © (2006-01-10 18:27) [9]

Может попроще - загрузить в TStringList и вывести построчно в канвас принтера?

← →
beglec © (2006-01-10 18:30) [10]

-> Reindeer Moss Eater

RichEdit1.Visible:=False; $) Но объяснять, что такое TString или TStringList (конструкторы, дисктруторы) и с чем его едят я думаю автору вопроса не стоит :) Я показал самый простой и примитивный способ :)) В принцепе можно вообще построить все на Read and Write - такой код даже на Pascal будет работать :))) На будущее, если у вас все методы это извращение, почему не предлагаете свои варианты или вы просто не довольны жизнью сегодня ? :) С НОВЫМ СТАРЫМ ГОДОМ ТОВАРИСЧИ !!!

Все приведенные варианты с перекодировкий в ANSI неработоспособны по одной простой причине - символы псевдографики не напечатать.

2 Alexander Panov © (11.01.06 00:58) [11]
Ну Саша. Имхо не стоит плодить лишние сущности, если автор сабжа про них ничего не сказал. Ведь во все времена, под текстовым файлом понимался файл, который может содержать только символы печатающей машинки. Конечно включая некоторые дополнительные символы форматирования текста типа TAB, CR, LF.
А псевдографика уж точно не "влезает" в текстовый файл. Имхо.

Мы в свое время так выкрутились:
В систему инсталлируется самопальный TTF шрифт (сам рисовал, на основе Courier New Cyr), где вся эта псевдографика и прорисована, а также символы расставлены в "правильном" порядке. Ну и далее примерно как [7]

А у меня где то валялась программка, которая печатает и псевдографику. Шрифт - обычный Curier New Cyr. Кроме этого там еще и управляющие символы для Epson обрабатывались. Странно, что называлась она тоже dosprn.

> В систему инсталлируется самопальный TTF шрифт (сам рисовал,
> на основе Courier New Cyr), где вся эта псевдографика и
> прорисована, а также символы расставлены в "правильном"
> порядке

Хм... Вот уж голь на выдумки хитра...

Есть ведь стандартный шрифт Terminal, который: а) именно для DOS"овской кодировки; б) содержит символы псевдографики. Так что канве принтера назначаешь этот шрифт -- и печатаешь текстовый файл без всяких перекодировок.

Печать текстового файла DOS на лазерный принтер средствами Delpfi Найти похожие ветки