| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Помогите ! Проблема с выводом текст на принтер [D2005]

Officeman ©   (2010-02-28 14:31:00) 

Вывожу на принтер содержимое Memo
var
Prn: TextFile;
k: Integer;
begin
AssignPrn(Prn);
Rewrite(Prn);
Printer.Canvas.Font := Memo1.Font;

for k := 0 to Memo1.Lines.Count-1 do
WriteLn(Prn, Memo1.Lines[k]);
CloseFile(Prn); // Аналог EndDoc
end;

какбы разметка соответствует действительности но вместо русских символов выводятся какието ЯПОНСКИЕ   :((((((((((

добавлял

Printer.Canvas.Font.Charset := 204;

всёравно печатаются ЯПОНСКИЕ. заместо пробелов пустые квадратики

помогите чем можете. срочно нужно реализовать печать с memo

с Уважением.

---

KilkennyCat   (2010-02-28 18:46:00) [1]

гы...

> Officeman

а может есть хоть тень сомненья, что тупит не Делфи? Хоть небольшая? Типа "а не я ли даун?"

---

Officeman   (2010-02-28 17:14:00) [2]

не ругаемся

---

Игорь Шевченко   (2010-02-28 16:43:00) [3]

Удалено модератором

---

Officeman   (2010-02-28 14:34:00) [4]

вопрос снят.  Delphi RAD 2009  тупит.  в других версиях дельфи нормально.

извините.

---

Наверх