Discussion :

[chekkal]

Bonjour à tous,

Je voudrais regrouper plusieurs reports dans un seul à l'impression, j'ai vu beaucoup de discussion sur le sujet mais j'arrive pas à les appliquer dans mon programme. En effet, j'ai un project "consulter.rav" qui contient 3 report et je voudrais avoir la possibilté d'imprimer chaque report tout seul ou grouper les 3.

[SergioMaster]

Bonjour,

cela fait longtemps que je n'ai pas touché à Rave, néanmoins voici quelques souvenirs

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
19
20
21
22
23
24
 
procedure TForm1.ReportSystem1Print(Sender: TObject);
var doNewpage : Boolean;
begin
  with Sender as TBaseReport do begin
     if CheckBoxReport1.Checked then
      begin 
        RaveProject1.ExecuteReport('Report1');  
        doNewpage:=true; 
      end;
   if CheckBoxReport2.Checked then 
      begin
        if doNewpage then NewPage;  // saut de page
        RaveProject1.ExecuteReport('Report2');
        doNewpage:=true; 
      end;
     if CheckBoxReport3.Checked then 
      begin
        if doNewPage then NewPage;
        RaveProject1.ExecuteReport('Report3');
        doNewpage:=True;
      end;
  end;
end;

bien sûr cela demande un RvReportSystem sur la Forme

s'il y a en plus changement d'orientation voir dans les tips de Nevrona tpis 41,46,47

[chekkal]

Bonjour sergio,

le problème c'est que pour chaque report il ya beaucoup de manipulations , maintenant je ne sais pas si on peut manipuler les composants contenu dans chaque report dans l’événement onprint du rvsystem

[SergioMaster]

Ce n'était pas dit dans la question de début mais je pense que c'est gérable, il suffit de tester/récupérer le nom du report en cours avant

[chekkal]

Bonjour sergio,

je fait de cette manière

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
19
20
21
22
23
24
25
26
 
procedure configurereport(report1:shortstring);
begin
        rvproject1.selectReport(report1,false);
        {
ici on modifier tout les composants 
}
end;
 
procedure Tform1.rvsystem1print(sender:Tobject);
begin
 
         configure('REPORT1');
         rvproject1.execute('REPORT1');
         newpage;
         configure('REPORT2');
         rvproject1.execute('REPORT2');
         newpage;
         .....
 
end;
procedure Tform1.Button1click(sender);
begin
         ///lancer impression
        rvsystem1.execute;
end;

et ça marche merci.