Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.06.24;
Скачать: CL | DM;

Вниз

Печать TStrings   Найти похожие ветки 

 
Hermit ©   (2002-06-11 18:15) [0]

Имеем принтер FX1170. При печати содержимого TStrings с помощью процедуры, приведенной ниже, принтер переключается в режим Roman, хотя его об этом никто не просит. Как побороть сие чудо?

procedure TfmMain.PrintStrings(Strings: TStrings);
var
Prn: TextFile;
i: word;
begin
AssignPrn(Prn);
try
Printer.Canvas.Font:=mmSingle.Font;
Rewrite(Prn);
try
for i := 0 to Strings.Count - 1 do
writeln(Prn, Strings.Strings[i]);
finally
CloseFile(Prn);
end;
except
on EInOutError do
MessageDlg("


 
Anatoly Podgoretsky ©   (2002-06-11 19:08) [1]

Как же никто не просит, а это кто?
Printer.Canvas.Font:=mmSingle.Font;



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

Текущий архив: 2002.06.24;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.021 c
4-77656
Rad
2002-04-21 22:38
2002.06.24
GroupBox на WinAPI


3-77265
PSZ
2002-05-30 12:10
2002.06.24
Как в DBGrid в ячейку засунуть рисунок ?


4-77700
ATLANTIDO
2002-04-21 16:48
2002.06.24
Дочерние окна


1-77375
Night
2002-06-13 13:12
2002.06.24
Запуск из Делфи другую прогу


14-77560
Song
2002-05-20 10:55
2002.06.24
Чего-то форум колбасит... Или только у меня?