Главная страница
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.012 c
1-77345
Samvel
2002-06-13 00:23
2002.06.24
form


14-77590
Arhangel
2002-05-21 19:20
2002.06.24
Поддержка систем.


3-77253
xaem
2002-05-29 20:47
2002.06.24
Помогите с BDE


1-77339
Samvel
2002-06-12 23:24
2002.06.24
memo


1-77486
Tkach_
2002-06-12 14:16
2002.06.24
ПОТОКИ