Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

TAN_K © (2006-01-10 15:12:00)
Господа , здравствуйте ! Всех поздравляю с праздниками .
Господа , подскажите , как сделать распечатку текстового файла . Текстовый файл создан DOS-программой написанной на CLARION , установили лазерный принтер , необходимо распечатать тексовый файл , чтобы пользователь не задумывался ни о чем .
Всем спасибо .

Чапаев (2006-01-11 10:43:00) [1]

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

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

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

ANB (2006-01-11 09:34:00) [2]
А у меня где то валялась программка, которая печатает и псевдографику. Шрифт - обычный Curier New Cyr. Кроме этого там еще и управляющие символы для Epson обрабатывались. Странно, что называлась она тоже dosprn.

КиТаЯц (2006-01-11 07:45:00) [3]
Мы в свое время так выкрутились:
В систему инсталлируется самопальный TTF шрифт (сам рисовал, на основе Courier New Cyr), где вся эта псевдографика и прорисована, а также символы расставлены в "правильном" порядке. Ну и далее примерно как [7]

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

Alexander Panov (2006-01-11 00:58:00) [5]
Все приведенные варианты с перекодировкий в ANSI неработоспособны по одной простой причине - символы псевдографики не напечатать.

beglec (2006-01-10 18:30:00) [6]
-> Reindeer Moss Eater

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

Johnmen (2006-01-10 18:27:00) [7]
Может попроще - загрузить в TStringList и вывести построчно в канвас принтера?

Reindeer Moss Eater (2006-01-10 18:17:00) [8]
> и напечатать хоть тем жеквикрепортом.

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

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

beglec (2006-01-10 18:11:00) [9]
->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:08:00) [10]
Перекодировать в win1251 и напечатать хоть тем же квикрепортом.

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

Leonid Troyanovsky (2006-01-10 18:06:00) [11]

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

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

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

--
Regards, LVT.

Reindeer Moss Eater (2006-01-10 17:44:00) [12]
на лазерный принтер средствами Delpfi

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

ANB (2006-01-10 17:35:00) [13]

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

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

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

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

Виталий Панасенко (2006-01-10 17:29:00) [14]
http://dvtb.amur.ru/~dosprn

dioman (2006-01-10 15:13:00) [15]
скопируй в prn

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »