Discussion :

[Teddy7]

Bjr,

J'aimerai pouvoir inserer un saut de page dynamique dans un report. Ce saut de page se ferait en fonction d'un nombre de ligne atteint dans la partie détail. Est-ce possible dynamiquement ?
Voici mon code:

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
 
'DETAILS -----------------------------------------
        Rst.MoveFirst
        Do While Not Rst.EOF
             If varcount = 12 Then
                 varcount = 0
                 DRNdevis.Sections("Section1").ForcePageBreak = rptPageBreakBefore
             End If
 
            With DRNdevis.Sections("Section1").Controls
              .Item("Text1").DataField = Rst.Fields("qte").Name
              .Item("Text2").DataField = Rst.Fields("designation").Name
            End With
 
            Rst.MoveNext
            varcount = varcount + 1
        Loop

Ici, j'obtiens un saut de page à chaque ligne détail si j'ai plus de 12 lignes ! je souhaiterait seulement 1 saut après la 12eme ligne !

NB: je n'utilise pas de dataenvironnement mais un recordset issu d'une bdd access.

[ucfoutu]

Bonjour,

Juste une idée à 100 sous :
Ajoute une variable static booléenne toto
et ensuite ... dans ton code :

Code :

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

1
2
3
4
5
If varcount = 12 and not toto Then
                 varcount = 0
                 toto = True
                 DRNdevis.Sections("Section1").ForcePageBreak = rptPageBreakBefore
End If

[Teddy7]

Merci pour cette idée, malheureusement cela n'a rien donné. Je m'oriente vers le rajout de section (Group header et Group footer)sur mon datareport, à priori cela pourrait servir à generer un saut de page automatiquement mais dans la pratique je ne vois pas comment cela fonctionne

N'utilisant pas de dataenvironnement mais simplement un datarecord issu d'une requete sur une base access, la gestion des sauts de page parait plus compliqué

Si qlq avait un exemple, mille merci !