|
You cannot change printer property during printing of the document. But you can interrupt print process to change properties and run print again from the necessary line.
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[i]);
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;
- For more
-
Delphi Help
- We recommend
-
Greatis Print Suite
- Download source
|
