Rave: Seitenanzahl nach Preview feststellen?

[Volker Z.]

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ß

[SearchBot]

Vielen Dank, klappt super.

Ich hab nur statt bei Afterprint es bei PreviewShow reingemacht.