Текущий архив: 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.02 c
