//текст на печать
uses Printers;
...
procedure TForm1.Button1Click(Sender: TObject) ;
var
F, F2: TextFile;
i, j: Integer;
begin
AssignPrn(F) ;
Rewrite(F) ;
Writeln(F, RichEdit1.Lines[0]) ;
for i:=1 to RichEdit1.Lines.Count-1 do
begin
if Printer.PageNumber<2 then
Writeln(F, RichEdit1.Lines) ;
if Printer.PageNumber>1 then
begin
CloseFile(F) ;
Break;
end;
end; AssignPrn(F2) ;
Printer.Orientation:=poLandscape;
Rewrite(F2) ;
for j:=i to RichEdit1.Lines.Count-1 do
Writeln(F2, RichEdit1.Lines[j]) ;
CloseFile(F2) ;
end;
| 