Discussion :

[menoulette]

Bonjour ,j'ai des tableaux à générer dynamiquement dans des états de sorties contenant des articles chaque tableau contient un certain nombre d'article pas connu , mon problème c'est que l tableau s'étend en fonction du nombre des articles qui se trouvent dans la partie Détail de mon quickreport y'a til une manière de faire étandre les QRshapes pour qu'elles puissent prendre toute la surface de ma page même si y'a un petit nombre d'article de mon détail ci-joint un document explicatif ! j'ai essayé une méthode mais ca n'a pas marché est bien de convertir mes quickreport en excel mais le résultat n'est pas top du tout !! avez vous une solution ! merci d'avance pour le partage

[SergioMaster]

Bonjour,

Je n'ai pas trop de temps à accorder aujourd'hui ma réponse sera donc brève pour un premier temps at ainsi donner une piste

il suffit de mettre les shapes en dehors des bandes , c'est à dire directement sur la page

[menoulette]

je crois que j'ai mal expliqué j'ai trois bandes(détail,sous-détail,et summaryband )
les qrshapes sont placés dans la bande détail car je récupère le code article depuis un qrdbtext ) et summaryBand contient le total (articles 850) ce que je dois faire et bien d'enlever le (summaryband) et la remplacer par pagefooter le problème quand il n y'a pas beaucoups d'articles y'a le vide entre le détail et le pagefooter !! y'a t-il une façon d'étendre les qrshapes jusqu'à ce qu'elle soit collées avec le pagefooter !!!)

[SergioMaster]

Bonjour,

J'ai très bien compris ta problématique et je réitère que la solution passe par les shapes posées sur la page et non dans les bandes détails .

J'ai déjà fait des factures selon ce principe (avec bas de page différents si la facture fait plus d'une page et bien sur pied de facture et même un Entête complet uniquement sur la première page) .

pour cela j'avais joué sur les évents :

BeforePrint

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.QuickRep1BeforePrint(Sender: TQuickRep;
  var PrintReport: Boolean);
begin
//P:=0;
//RQte:=0;
//RSomme:=0;
VShape.Size.Left:=Quickrep1.Page.LeftMargin;
VShape.Size.Width:=SumShape.Size.Left;
VShape1.Size.Width:=QuickRep1.Page.Width-Quickrep1.Page.RightMargin-VShape1.Size.Left;
end;

StartPage

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.QuickRep1StartPage(Sender: TQuickRep);
begin
Inc(P);
TopVShape:=QuickRep1.Page.TopMargin;  // position haute des shapes verticales
EnteteComplet.Frame.DrawTop:=(P<>1);
if P=1 then EnteteComplet.Height:=194     // Entête complet uniquement sur page 1
       else EnteteComplet.Height:=1;
end;

et Beforeprint du pied de page Aligné en bas de page

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
// Pied de Page ----------------------------------------------------------------
procedure TForm1.PageFooterBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
var CliHeight : Real;
begin
PrintBand:=Pied;
if PrintBand then   // Proformatage --------------------------------------------
 begin
  CliHeight:=QuickRep1.Page.Length-(QuickRep1.Page.BottomMargin+QuickRep1.Page.TopMargin+VShape1.Size.Top);
  VShape.Size.Height:=CliHeight-12;
  VShape1.Size.Height:=CliHeight-12;
  VShape2.Size.Height:=CliHeight-12;
 end;
end;

Note : dans le programme c'est un peu plus complexe que ça mais c'est l'esprit qui compte

a bien noter , il faut que les shapes (posées sur la page et non dans une bande) soit dessinées en dernier , pour cela il faut les 'envoyer en arrière' (clic droit sur la shape et mettre en arrière plan .

une preuve par l'image en pièce jointe (les 3 shapes VShape,VShape1,VShape2 de hauteurs variables sont surlignées)
mes excuses pour les noms , c'était un de mes premiers programmes Delphi 3 qui date de 1999 et est toujours utilisé (plus de 600 factures / mois )!

[menoulette]

Bonjour merci pour votre réponse et désolée d'avoir tarder pour répondre congé de maladie , Super idée comme tout Merci Sergio je me suis inspirée de votre programme j'ai récupéré la taille de ma page quickreport ainsi que celle du pagefooter une simple soustraction j'ai affecté le résultat à mes QRShape.size.height et hop c'est la magie merciiiiiiiiiiiiiiiiiiiiiiiiiiiiii pour vos idées en or