Discussion :

[alili mostafa]

salut a tous
je souhaite savoir s'il est possible de fusioner deux etats (quickreport 3) dont les deux etat sont realisé separement ,je precise : chque etat a son data set et ces propres qrlabels
marci d'avance

[SergioMaster]

il faut pour cela utiliser le composant QRCompositeReport

Places un composant TQRCompositeReport sur ta forme
puis tu ajouteras tes états ainsi

Code :

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

1
2
3
4
5
6
7
 
 with QRCompositeReport1.Reports do
 begin
  Add(Etat1.Report);
  Add(Etat2.Report);
  Add(Etat3.Report);
end;

pour imprimer tu utiliseras ensuite le QRCompositeReport comme un QuickRep c'est à dire :

QRCompositeReport1.Print ou QRCompositeReport1.Preview

[alili mostafa]

merci infiniment sa marche trés bien

[Sofiane.vert]

Bonjour, en fait j'ai le même problème que Alili Mostafa...!!! Je souhaite imprimer quelques informations extraites de ma base de données sous forme de tableaux..., mon soucis c'est que je veux que certains tableaux soient dans le même QuickRep.
J'ai essayé d'introduire le code proposé par SergioMaster mais après compilation je vois des trucs non significatif...
Merci d'avance pour votre collaboration.

[SergioMaster]

J'ai essayé d'introduire le code proposé par SergioMaster

Mon code fonctionne très bien .

mais après compilation je vois des trucs non significatif...

cela ne nous renseigne pas sur les problèmes rencontrés

[Sofiane.vert]

tout d'abord je tiens a vous remercier pour votre collaboration, en fait j'ai réglé le problème en passant par le QRCompositeReport.

[menoulette]

il faut pour cela utiliser le composant QRCompositeReport

Places un composant TQRCompositeReport sur ta forme
puis tu ajouteras tes états ainsi

Code :

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

1
2
3
4
5
6
7
 
 with QRCompositeReport1.Reports do
 begin
  Add(Etat1.Report);
  Add(Etat2.Report);
  Add(Etat3.Report);
end;

pour imprimer tu utiliseras ensuite le QRCompositeReport comme un QuickRep c'est à dire :

QRCompositeReport1.Print ou QRCompositeReport1.Preview

Bonjour j'ai le même soucis que Sofiane.vert je suis tombée sur cette discussion en faisant des recherche je veux fusionner deux rapports dans un seul rapport pour que je puisse les imprimer dans une seule page mais en mettant le code suivant

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure TForm1.QRCompositeReport1AddReports(Sender: TObject);
begin
 WITH QRCompositeReport1.Reports do
 begin
  ADD(QuickRep1.Report);
  ADD(QuickRep2.Report);
end; 
end;

j'ai un message d'erreur indiquant que le compilateur n'a pas reconnu (Report) j'ai essayé de le remplacer par page j'ai une exception de violation d'accès !!!! merci de m'orienter

[SergioMaster]

Bonjour,

peut être une différence de version , les posts de départ sont de 2008 (6 ans de déterrage )
essayes

Code :

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

1
2
3
4
5
6
 
WITH QRCompositeReport1.Reports do  
begin
Add(QuickRep1);
Add(QuickRep2);
end;

ou alors , il s'agit d'un uses manquant, ou encore les quickreports ne sont pas dans les même unités ?
je pencherais pour des uses manquants si les reports sont dans des unités distinctes

un tour ici et un téléchargement de l'aide de la dernière version aide
et je confirme mon code par celui fourni dans l'aide

Code :

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

1
2
3
4
5
procedure TForm1.QRCompositeReport1AddReports(Sender: TObject);
begin
      QRCompositeReport1.Reports.Add(OnePagerep.QuickRep1);
      QRCompositeReport1.Reports.Add(Repform.QuickRep1);
end;

[menoulette]

Bonjour , merci pour votre réponse ,
je ne crois pas que c'est du au manque du composant dans la partie USES , et concernant les unités j'ai une unité1 avec form1 et form1 contient un pagecontrol pannel contenant deux onglet j'ai placé dans le premier onglet le quickreport1 et dans le deuxième le quickreport2 et sur la même form j'ai placé le QRCOMPOSITEReport1 et j'ai écrit sur la procédure le code suivant

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure TForm1.QRCompositeReport1AddReports(Sender: TObject);
begin
WITH QRCompositeReport1.Reports do
 begin
   ADD(QuickRep1);
   ADD(QuickRep2 );
end;
end;

quand j’exécute maintenant les deux rapports s'affichent collé l'un sur l'autre et moi je désire les fusionner pour les pouvoir imprimer sur une seule page . Quand je ferme j'ai le message d'erreur qui s'affiche EAccessViolation !!


y'a t-il quelque chose qui manque dans mon code pour avoir ce résultat !! merci d'avance

[SergioMaster]

normalement , les deux états devrait se trouver l'un à la suite de l'autre , par contre , à ma souvenance il y a un saut de page entre les deux .

quand j’exécute maintenant les deux rapports

Comment ?
par Quickrep1.Print; Quicrep2.Print ou par QRCompositeReport1.print ?

[menoulette]

normalement , les deux états devrait se trouver l'un à la suite de l'autre , par contre , à ma souvenance il y a un saut de page entre les deux .

Comment ?
par Quickrep1.Print; Quicrep2.Print ou par QRCompositeReport1.print ?

non par un QRCompositeReport1.preview là je trouve un état collé sur l'autre et c'est pas ça ce que je désire