Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.046 c