Печать 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;

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