Discussion :

[jfc]

Salut,

Si j'arrive sans problème dans un état à réinitialiser la numérotation des pages à chaque regroupement, je n'arrive pas à totaliser le nombre de pages par regroupement.

Exemple :
Etat de 470 pages

Groupe 1 : 5 pages

Groupe 2 : 12 pages

numérotation souhaitée dans pied de page

1/5, 2/5, 3/5, 4/5, 5/5, 1/12, 2/12, etc.

j'arrive à sortir
1/470, 2/470,3/470,4/470,5/470,1/470,2/470

quelqu'un a une idée

[lucienkany]

Bonjour,

Comment tu fais pour réinitialiser comme tu dis?

[helas]

Le plus simple ne serait-il pas d'éditer un état par critère de regroupement

exemple:

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
Global ok As Boolean
Sub Previsualisation()
 Dim t As DAO.Recordset
 
 Set t = CurrentDb.OpenRecordset("SELECT MaTable.groupe FROM MaTable GROUP BY MaTable.groupe;")
 Do Until t.EOF
  DoCmd.OpenReport ("etat2"), acViewPreview, , , , t!groupe
  ok = False
  Do Until ok: DoEvents: Loop 
 t.MoveNext
 Loop
 t.Close
 
End Sub

Pour une simple impression le code en bleu est inutile


le code de l'etat étant :

Code :

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

1
2
3
4
5
 
Private Sub Report_Open(Cancel As Integer)
 Me.FilterOn = True
 Me.Filter = "[groupe] = " & Chr$(34) & OpenArgs & Chr$(34)
End Sub

et

Code :

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

1
2
3
4
 
Private Sub Report_Close()
 ok = True
End Sub

[jfc]

Merci de la solution qui n'est dans mon environnement pas si simple à mettre en oeuvre.

Motif :
- cela va générer plus de 250 états
- il faut que l'utilisateur puisse choisir l'imprimante réseau de destination.
- un travail avec l'imprimante par défaut n'est pas envisageable (plateforme centrale citrix) qui impose après le changement de l'imprimante par défaut de fermer toutes les applications et de les réouvrir.

Pour la solution utilisée, j'ai utilisé la solution préconisée par l'aide de MS Access,
topic . Etats - Sauts et numéros de pages - Redéfinir les numéros de page pour chaque groupe d'un état. Seule modification apportée : création entière en VBA sans utilisation des macros