Verbinden von Seite1 (schon vorhanden) mit Seite 2 (dynamisch erzeugt), Komponente TRVProjekt wird verwendet
Delphi-Quellcode:
...
var PageR: TRavePage;
Rep : TRaveReport;
as begin
...
// dynamische Erzeugung der Seite2
MyNewPage := TRavePage.Create(myReport) ;
MyNewPage.Parent := myReport;
MyNewPage.Name := Format('Page%d',[2]) ;
MyNewPage.Orientation := poDefault;
MyNewPage.PageHeight := 11.693 ;
MyNewPage.PageWidth := 8.268 ;
MyNewPage.Active := True ;
...
// mache was mit MyNewPage
...
// Verbinden der Seite 1 mit neuer Seite 2
Rep := RVProjekt1.ProjMan.findravecomponent('MeinReport', nil) as TRaveReport;
PageR := RVProjekt1.ProjMan.findravecomponent('MeineSeite1', Rep) as TRavePage;
PageR.gotopage := mynewpage;
...
// Drucken
RVProjekt1.ExecuteReport('MeinReport')
end;