Discussion :

[mouhamadrouabha]

Bonsoir.
Comment faire (codes) pour inverser l'ordre d'impression des pages d'un état, exemple:
Si un état comporte 3 pages ( 1, 2, 3 ), l'impression s’effectue alors dans l'ordre suivant:
La page 3 premièrement.
La page 2 deuxièmement.
La page 1 troisièmement.

[Tofalu]

Pourquoi ne pas simplement faire en sorte que l'état soit conçu dans le bon sens. Soit par sa conception, soit en modifiant la source de données.

Plutôt que de prendre un dictionnaire de A à Z pour le lire à l'envers, autant prendre directement un dictionnaire de Z à A

[mouhamadrouabha]

Merci Tofalu.
Mais; je n'arrive pas à bien comprendre votre idée:
Svp plus de détails.

[Tofalu]

Remplissez l'état dans le bon sens

[mouhamadrouabha]

Pas clair.

[Tofalu]

Faites en sorte que l'état contienne en première page ce qui doit être imprimé en premier, la seconde ce qui doit être imprimé en second, et ainsi de suite.

[mouhamadrouabha]

Mais comment appliquer cela ?

[Tofalu]

En triant les données par exemple.

[mouhamadrouabha]

Je crois que vous n'avez pas bien compris mon problème.
Supposons que l’état contient n pages, n dépend de nombre des enregistrements
issus dune table ou une requête qui alimente l’état.
je veut que l'impression sera comme suit:
la page n puis la n-1 puis n-2 puis ... et en fin la page 1
c.à.d inversement au cas d'impression normal ( page 1 puis page 2 ...et en fin page n ).

[Robert1957]

Bonjour mouhamadrouabha, Christophe,

Je crois comprendre ce que veux mouhamadrouabha, remplacer les sélections qu'on peut faire avec le gestionnaire d'impression de l'imprimante soit demander de commencer l'impression du document de la fin vers le début ou encore de n'imprimer que les pages pairs. Remplacer le recto-verso. Cela pour ensuite faire l'assemblage à la main.

Pour débuter par la fin tu pourrais essayer de passer la boucle à l'envers dans le code que t'a donné Claude.

Code :

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

i = i -1

Faudrait juste trouver le nombre de pages et diminuer ta variable en conséquence.

Bonne journée

[mouhamadrouabha]

Merci Robert, ta bien compris mon problème.

J'ai essayer ta suggestion avec le code de Claude; Mais il m'affiche tous les pages de l’état.

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub BtPaires_Click()
Dim i As Long
 If CurrentProject.AllReports("VINS_Toutes les pages").IsLoaded Then DoCmd.Close , "VINS_Toutes les pages"
 DoCmd.OpenReport "VINS_Toutes les pages", acViewPreview
 For i = Reports("VINS_Toutes les pages").Pages To 2
    DoCmd.PrintOut acPages, i, i
    i = i - 1
 Next i
 
End Sub

[ClaudeLELOUP]

Plutôt comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub BtInverse_Click()
 Dim i As Long
 If CurrentProject.AllReports("VINS_Toutes les pages").IsLoaded Then DoCmd.Close , "VINS_Toutes les pages"
 DoCmd.OpenReport "VINS_Toutes les pages", acViewPreview
 For i = Reports("VINS_Toutes les pages").Pages To 1 Step -1
    DoCmd.PrintOut acPages, i, i
 Next i
 
End Sub

Explication du code :

3. On ferme l'état (il est peut-être ouvert d'un précédent usage)

4. On l'ouvre en previeuw (il ne s'imprime donc pas, mais l'état doit être ouvert pour l'instruction suivante)

5-7. Pour te documenter sur "DoCmd.PrintOut ", tu places ton curseur dessus et tu enfonces la touche F1 => l'aide Access s'ouvre à la bonne page.
On imprime toutes les pages à reculon (step -1).


N.B. Ton imprimante propose sans doute cette fonctionnalité.

[mouhamadrouabha]

Exactement ce que je cherche ...
Merci beaucoup Claude.
Toutes mes remerciements à tous les participants