Einzelnen Beitrag anzeigen

Volker Z.

Registriert seit: 4. Dez 2012
Ort: Augsburg, Bayern, Süddeutschland
419 Beiträge
 
Delphi XE4 Ultimate
 
#2

AW: Rave: Seitenanzahl nach Preview feststellen?

  Alt 14. Nov 2013, 20:04
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ß
Volker Zeller
  Mit Zitat antworten Zitat