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

← →
Officeman (2010-02-28 14:31) [0]

Вывожу на принтер содержимое 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

с Уважением.

← →
Officeman (2010-02-28 14:34) [1]

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

извините.

← →
Игорь Шевченко © (2010-02-28 16:43) [2]

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

← →
Officeman (2010-02-28 17:14) [3]

не ругаемся

гы...

> Officeman

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

Помогите ! Проблема с выводом текст на принтер Найти похожие ветки