Discussion :

[rebirth03]

Bonjour,

Dans Delphi, j'ouvre un état report avec la commande execute, ce qui ouvre une petite boite de dialogue (preview, print ...)

Je souhaiterais conserver ce fonctionnement actuel, tout en enregistrant automatiquement une copie de l'état dans le répertoire de mon choix.

Avez vous une idée ?

Merci

[Rayek]

Il te faut executer une deuxieme fois l'etat mais tu dois cette fois ci

- Ne pas afficher la boite de dialogue

Code :

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

1
2
3
4
5
 
 With RvSystem1 do
 begin
    SystemSetups  := SystemSetups - [ssAllowSetup];
 end;

- puis configurer le fichier :

Code :

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

1
2
3
4
 
RenderObject   := RvRenderPDF1; // nécessaire de déposé un RvRenderxxx
DoNativeOutput := false;
OutputFileName := 'Monfichier.pdf'; // indiquer le nom du fichier de sortie

- et pour finir, il faut executer l'etat pour que cela génére le fichier

[rebirth03]

Merci pour ton aide !

[Rayek]

J'ai oublié d'indiquer 1 paramètre le code si dessous est plus complet

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
 
With RvSystem1 do
begin
   // Indique que la destination de l'état sera un fichier
   DefaultDest    := rdFile;
   // Empeche l'affichage de la boite de dialogue
   SystemSetups   := SystemSetups - [ssAllowSetup];
   // Indique que l'on veut imprimer un PDF;
   // pour les autres formats, il suffit de remplacer RvRenderPDF1 
   //par RvRenderHtml1 ou RvRenderRTF1
   RenderObject   := RvRenderPDF1; 
   DoNativeOutput := false;
   // Il est nécessaire d'indiquer le chemin et le nom du fichier que l'on va générer
   OutputFileName := ExtractFilePath(Application.exeName) + 'MonFichierPdf.pdf';
end;
 
// l'exécution de l'état est nécessaire si l'on veut que le fichier soit généré.
RvProject1.ExecuteReport('Report1');

[rebirth03]

Merci, ca marche parfaitement !

[Rayek]

Si tous est bon pense à cliquer sur ^^