Печать из RichEdit

Советы » Принтеры и Печать » Печать из RichEdit

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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com