Discussion :

[cam31]

Bonjour,

Je tourne en rond depuis plusieurs jours alors je me décide à demander de l'aide.
Dans une base de données Access, j'ai un état "bon de livraison" qui tient sur une page.

A partir d'un bouton d'un formulaire, je l'imprime en plusieurs exemplaires à l'aide de la commande DoCmd.PrintOut , , , , 3 (pour 3 pages dans ce cas).

Je n'arrive pas à récupérer le nombre de pages imprimées de manière à avoir par exemple pour l'impression en 3 exemplaires, 1/3 sur la premières pages puis 2/3 et 3/3.

Cette numérotation fonctionnerait si mon état faisait 3 pages, mais il n'en fait qu'une :-(

Merci d'avance pour l'aide

[Invité]

Bonjour

Il faut travailler autrement.

Dans l'état mettre un champ de type texte qui contiendra la numérotation.

Utiliser dans une boucle la méthode DoCmd.OpenReport, comme l'exemple suivant :

Code :

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

1
2
3
4
5
6
7
Public Sub Impression()
    Dim i As Integer
 
    For i = 1 To 3
        DoCmd.OpenReport "Rpt_Etat",acViewNormal, , , , i
    Next i
End Sub

la zone de texte étant dans le pied de l'état, il faut mettre sur le code de cette zone :

Code :

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

1
2
3
Private Sub ZonePiedPage_Format(Cancel As Integer, FormatCount As Integ
     Me.txtLaZone.Value = Me.OpenArgs & "/3"
End Sub

Je n'ai pas testé, mais cela devrait le faire.

Philippe

[cam31]

Bonjour,

Je m'y prend peut être mal mais ça ne fonctionne pas.
Comme je débute un peu dans ce domaine, pourriez vous détailler l'emplacement du code.
Je pense avoir compris pour la zone de texte, mais le premier code est-il également dans l'état.

Cordialement

[Invité]

Re

Le premier code est à mettre à la place de ta ligne

Code :

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

DoCmd.PrintOut , , , , 3

A la place tu mets juste cela :

Code :

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

1
2
3
4
5
6
Dim i As Integer
 
For i = 1 To 3
     DoCmd.OpenReport "Rpt_Etat",acViewNormal, , , , i
     DoEvents
Next i

Je n'ai pas eut le temps de tester.

Philippe

[cam31]

Merci beaucoup, je pense que c'est la bonne piste.
Je fignole demain et je t'informe du résultat.
Encore merci, je galérais vraiment

[cam31]

Bonjour,

Et bien merci beaucoup, c'était la bonne piste.
J'ai un peu adapté à mon environnement et ça fonctionne impécable.

Encore merci pour le coup de main

Cordialement