Discussion :

[informer]

Bonjour,

Voilà mon problème:

Actuellement, la taille du rapport sur une page dépend du nombre d'enregistrements dans la partie détail. Comment faire pour que le rapport occupe la totalité de la page indépendamment du nombre d'enregistrements du détail.

Merci par avance

[ClaudeLELOUP]

Bonjour,

Je n'ai pas compris la question.

Peux-tu montrer une capture d'écran de ce que tu as actuellement et indiquer ce que tu voudrais comme résultat.

[informer]

Bonjour ClaudeLELOUP,

Voici un capture d'écran pour illustrer mon propos.


On remarque que la taille du carré orange (partie non utilisée pour l'édition) est fonction du nombres d'enregistrements de la partie détail (entre les 2 bandes bleues)

Je voudrais fixer la taille éditable de la facture pour qu'elle prenne toute la page indépendamment du nombre d'enregistrements

J'espère avoir été suffisamment explicite.

[ClaudeLELOUP]

Tu veux un saut de page après ceci ?

[informer]

Je ne sais pas si ta question le permet mais je voudrais obtenir ce résultat:

[ClaudeLELOUP]

Cette fois, c'est clair !

Ne peux-tu pas simplement placer tes infos des totaux dans le Pied de page plutôt que dans la section Détail ?

[informer]

Bonjour ClaudeLELOUP

Merci pour ton aide qui m'a permis de trouver la solution car il y a un petite astuce à ne pas rater !

Il est impossible de faire référence directement aux champs l'entête/pied de page par contre aux objets champs oui !

Par conséquent, il faut dans le

1. Pied de groupe
   
   1. Ajouter des champs qui somment le détail
   2. Réduire très significativement leur hauteur (0,2cm)
   3. Les rendre invisibles
   4. Réduire le pied de groupe à la hauteur des champs
   
   
2. Pied de page
   
   1. Faire référence aux objets texte pour reprendre leur valeur

Cerise sur le gâteau ajouter un encadrement sur l'ensemble de la page sous l'événement Page du rapport

Code VBA :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Report_Page()
 
    Me.ScaleMode = 3 ' Set scale to pixels.
    sngTop = Me.ScaleTop + 5 ' Top inside edge.
    sngLeft = Me.ScaleLeft + 5 ' Left inside edge.
    sngWidth = Me.ScaleWidth - 10 ' Width inside edge.
    sngHeight = Me.ScaleHeight - 10 ' Height inside edge.
    lngColor = RGB(51, 153, 255) ' Make color red.
    Me.Line (sngTop, sngLeft)-(sngWidth, sngHeight), lngColor, B ' Draw line as a box.
End Sub

Encore merci pour ton aide