Discussion :

[nn2009]

bonjour, dans mon Report1 j'ai crée (RAVE V5.0 & Delphi7) plusieurs pages (page1, page2...) pour le même Report1, jusqu'ici c'est bon, comment choisir la page à imprimer depuis delphi7, sachant que j'ai enlevé la chaine par default(page1)pour la propriété FirstPage du Report1, voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
with RvProject1 do
   begin
     open;
     SelectReport('report1.firstpage.page1' ,false);
     execute;
     close;
   end;

Merci

[Ph. B.]

Bonjour,

dans mon Report1 j'ai crée (RAVE V5.0 & Delphi7) plusieurs pages (page1, page2...) pour le même Report1, jusqu'ici c'est bon, comment choisir la page à imprimer depuis delphi7, sachant que j'ai enlevé la chaine par default(page1)pour la propriété FirstPage du Report1, voici mon code

AMHA, on ne peut que choisir un rapport qui lui a ses règles pour organiser les différentes pages (propriétés PageList ou FirstPage pour le rapport, et GotoPage pour les pages).
Le projet démo de Rave est assez instructif à ce sujet. Il montre un rapport avec 5 types de pages et comment elles sont liées...
c'est le "Multi Page Report" (fullname) ou "MultiPageReport".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
with RvProject1 do
   begin
     open;
     //SelectReport('report1.firstpage.page1' ,false);
     SelectReport('report1', False);
     execute;
     close;
   end;

Il vous faut découper votre rapport de plusieurs pages en plusieurs rapports d'une ou plusieurs pages...

[SergioMaster]

Il vous faut découper votre rapport de plusieurs pages en plusieurs rapports d'une ou plusieurs pages...

Pas obligatoirement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
uses rvProj,rvClass
...
var myReport : TRaveReport;
     myPage : TRavePage;
...
with RvProject1 do
   begin
     open;
     SelectReport('report1', False);
    myReport:=TRaveReport(RvProject1.ProjMan.Report);
  myPage := TRavePage(RvProject1.ProjMan.FindRaveComponent('Repor1.Page1',nil));
  MyReport.FirstPage:=Mypage;
     execute;
     close;
   end;

Cependant j'aurais plutôt vu cette discussion dans le forum Rave qui est là pour ça

[nn2009]

Bonjour,
Merci cl@udius pour avoir délacer mon message ici, c'est que j'ai beau chercher ou se trouvé le forum de Rave sur ce site, mais sans succès, bref, mon but était d'appeler une Page d'un Report à partir du Delphi7, j'ai consulté le site de John COLIBRI sur RAVE, évidement, il a expliqué qu'on peut créer plusieurs Rapport (Report1, Report2...) ainsi que pour chaque report plusieurs pages(page1, page2....) sauf que pour imprimer une page parmi plusieurs pages du même repport il faut : soit choisir la page par définition de la propriété firstpage ou par Listpage, sauf que je me suis dit alors quel est l’intérêt de créer plusieurs pages dans un même report si on nous oblige à suivre l'une de ses propriété, alors que si j'ai le choix des le début de choisir le numéro de page du tel report serai beaucoup mieux.
-Pour Sergio, merci pour votre Solution, je vais l'essayer, tout de suite...@+

[nn2009]

Bonjour,
j'ai essayé le code de sergio mais ça n'a pas marcher ! ! ! voici à quoi ressemble le mien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure Tmenuprincipal.ListedesMdecins1Click(Sender: TObject);
var
myReport : TRaveReport;
myPage : TRavePage;
begin
Application.CreateForm(TEtat_Medecins, Etat_Medecins);
with Etat_Medecins.Rvproject1 do
  begin
    Open;
    SelectReport('report1', false);
     myReport:=TRaveReport(Etat_Medecins.RvProject1.ProjMan.Report);
     MyPage:=TRavePage(Etat_Medecins.RvProject1.ProjMan.FindRaveComponent('Report1.Page2',nil));
     MyReport.FirstPage:=MyPage;
    execute;
    Close;
   end;
Etat_Medecins.close;
end;

une erreur d'écriture à l'adresse x0000...je ne sais quoi...ou peut resider cette erreur ! ????

[nn2009]

je précise bien une erreur de EAccess Violation à cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MyPage:=TRavePage(Etat_Medecins.RvProject1.ProjMan.FindRaveComponent('Report1.Page2',nil));

je résume, mon but est simple est de sélectionner une pageX du ReportX !
qq'un a t-il une idée plus simple
Meci.

[nn2009]

En fin la délivrance j'ai trouvé la sol, elle est dans le code de Sergio il faut seulement remplacer la ligne11 par la suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

myReport:=TraveReport(RvProject1.ProjMan.ActiveReport);