Печать из RichEdit

Nomadic дает для примера такой код:

procedure TForm1.Button1Click(Sender: TObject);
var lst :TextFile;sc :Integer;
begin
//Printer.Orientation:=poPortraite
AssignFile(lst,'prn');
Rewrite(lst);
sc:=0;
for sc:=0 to RichEdit1.Lines.Count-1 do writeln(lst,StrToOem(RichEdit1.Lines[sc])); System.CloseFile(lst); end;

[001660]

Содержание раздела