Hallo
Zitat:
[...] Ich finde aber nicht heraus, wo ich die Anzahl der gerenderten Seiten auslesen kann [...] Wiewowas geht das?
Einfach selbst zählen.
Etwa so (das Rave Project etc. muss man sich dazudenken):
Delphi-Quellcode:
type
TForm1 = class(TForm)
RvSystem1: TRvSystem;
procedure RvSystem1AfterPrint(Sender: TObject);
procedure RvSystem1BeforePrint(Sender: TObject);
procedure RvSystem1NewPage(Sender: TObject);
private
FPageCount : Integer;
end;
procedure TForm1.RvSystem1BeforePrint(Sender: TObject);
begin
FPageCount := 0;
end;
procedure TForm1.RvSystem1NewPage(Sender: TObject);
begin
Inc (FPageCount)
end;
Zitat:
Ich suche sowas wie
Delphi-Quellcode:
if Preview.PageCount>1 then
RvSystem1.SystemPrinter.Duplex:=dupHorizontal
else RvSystem1.SystemPrinter.Duplex:=dupSimplex;
Und dann noch:
Delphi-Quellcode:
procedure TForm2.RvSystem1AfterPrint(Sender: TObject);
begin
if FPageCount = 1 then
RvSystem1.SystemPrinter.Duplex := dupSimplex
else
RvSystem1.SystemPrinter.Duplex := dupHorizontal
end;
fertig
Gruß