Вниз
Скачать: CL | DM;

Печать на необычном принтере   Найти похожие ветки 

 
Darth Avenger   (2007-02-27 13:31) [0]

Такой вопрос - есть richedit, из него печатается произвольный текст (в кирилице). Печатаю так:

AssignFile(lst,"COM6");
Rewrite(lst);
sc:=0;
for sc:=0 to rzrichedit1.Lines.Count-1 do
writeln(lst,rzrichedit1.Lines[sc]);
writeln(lst,#10#12);
System.CloseFile(lst);


1. Печатается абракадабра в кирилице, хотя таким способом латиница печатается хорошо.
2. Из winword (даже из notepad :)) кирилица печатается хорошо.
3. Принтер нестандартный - термопринтер для чеков Posiflex.

Как быть? Заранее благодарен за ответы!


 
Сергей М. ©   (2007-02-27 13:34) [1]


> Как быть?


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


 
MBo ©   (2007-02-27 13:40) [2]

преобразуй кодировку OemtoChar или CharToOem, в зависимости от того, на какую рассчитан принтер


 
Desdechado ©   (2007-02-27 14:03) [3]

драйвер?


 
Darth Avenger   (2007-02-27 14:10) [4]

Спасибо всем! Проблему решил так:

Printer.BeginDoc;
Printer.Canvas.TextOut(0,0,"Русский текст");
Printer.EndDoc;

Не совсем удобно, не совсем richedit, но мне подходит :)


 
Тфьу   (2007-02-27 14:12) [5]

А самое главное медленно, и жрет кучу ресурсов...



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.027 c
3-1170430978
s_t_d
2007-02-02 18:42
2007.04.22
QReport в Delphi 7. Как получить доступ к элементам?


15-1175154774
Post_
2007-03-29 11:52
2007.04.22
Иконки..


1-1172136353
Medusa__
2007-02-22 12:25
2007.04.22
Создание компонент динамически.


2-1175681440
bagos
2007-04-04 14:10
2007.04.22
динамическое создание компонента


2-1175499588
Knock
2007-04-02 11:39
2007.04.22
record в record е




   Наверх