Back
...

Subject:
Вопрос по текстовой печати из проги на DELPHI
Date:
Sun, 02 Aug 98 15:02:20 +0300
From:
Andrey Burov <Andrey.Burov@p19.f238.n463.z2.fidonet.org>
Organization:
No woman no cry
Newsgroups:
fido.ru.delphi
References:
1




Hello Vasil,

* И когда настало Пн,27 Июл 1998, Vasil V. Shelkhonov написал All о <Вопрос по
текстовой печати из проги на DELPHI>:

VS> Одним из вариантов может быть запись необходимого текста в текстовый
VS> файл и посыл его на LPT1, но не получается. Кто-то уже наверное с этим
VS> сталкивался.
А что собственно не получается?
Смотри ниже:

procedure TEditForm.Printed;
var
Line: Integer;
PrintText: System.Text;
begin
AssignPrn(PrintText);
Rewrite(PrintText);
Printer.Canvas.Font := Memo1.Font;
for Line := 0 to Memo2.Lines.Count - 1 do
Writeln(PrintText, Memo2.Lines[Line]);
System.Close(PrintText);
end;



Best regards,
Andrey.
ѕ E-mail: aburov@gor.kv.energy.gov.ua

23.01.99 20:00:15