[AC-2000] Imprimer un état en N exemplaires [Résolu]

[Bertrand56]

Bonjour à tous,
nouveau sur le forum, j'arrive bien entendu avec mon problème. Après avoir consulté de long en large les réponses et suggestions, notamment sur Developpez.com, je n'ai pas réussi à adapter une solution trouvée.
Sur un formulaire j'ai un bouton pour imprimer l'enregistrement en cours dans un état construit à partir d'une requête. La solution doit pouvoir fonctionner sous AC 2000 et 2003.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub BoutonImprimerMonEtat_Click()
On Error GoTo Err_BoutonImprimerMonEtat_Click
 
    Dim stDocName As String
 
    stDocName = "MonEtat"
    DoCmd.OpenReport stDocName, acNormal, , "[IdExpedition]=" & Me![IdExpedition]
Exit_BoutonImprimerMonEtat_Click:
    Exit Sub
 
Err_BoutonImprimerMonEtat_Click:
    MsgBox Err.Description
    Resume Exit_BoutonImprimerMonEtat_Click
End Sub

le code

Code :

"[IdExpedition]=" & Me![IdExpedition]

filtre l'impression à obtenir.

Je souhaiterai pouvoir imprimer quatre exemplaires de cet état. J'ai essayé avec la solution suivante

Dans un module

Code :

1
2
3
4
5
6
7
Public sub fgImprimeCopiesEtat(stEtat As String, itCopies As Integer)
 ' stEtat   : nom de l'état
 ' itCopies : nombre de copies
DoCmd.OpenReport MonEtat, acViewPreview
DoCmd.PrintOut acPages, , , , 4
DoCmd.Close acReport, MonEtat
End sub

et placé sur le bouton imprimer du formulaire

Code :

fgImprimeCopiesEtat "MonEtat", 4

Mon code:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub BoutonImprimerMonEtat_Click()
On Error GoTo Err_BoutonImprimerMonEtat_Click
 
    Dim stDocName As String
 
    stDocName = "MonEtat"
    DoCmd.OpenReport stDocName, acNormal, , "[IdExpedition]=" & Me![IdExpedition]
    fgImprimeCopiesEtat "MonEtat", 4
Exit_BoutonImprimerMonEtat_Click:
    Exit Sub
 
Err_BoutonImprimerMonEtat_Click:
    MsgBox Err.Description
    Resume Exit_BoutonImprimerMonEtat_Click
End Sub

Merci de m'aider.

[Julien42]

bonjour,

moi j'aurai ecrit 4 fois la ligne suivante :

Code :

DoCmd.OpenReport MonEtat, acViewPreview

mais pour cela il faut virer le acViewPreview et lancer le print sans preview de ton etat. Ainsi il s'imprimera 4 fois

[Julien42]

impression directe sans preview

Code :

 DoCmd.OpenReport "MonEtat", acViewNormal

Si tu veux 4 impression :

Code :

1
2
3
4
DoCmd.OpenReport "MonEtat", acViewNormal
DoCmd.OpenReport "MonEtat", acViewNormal
DoCmd.OpenReport "MonEtat", acViewNormal
DoCmd.OpenReport "MonEtat", acViewNormal

[Bertrand56]

Bonjour,
merci Julien42 pour ta réponse rapide je vais essayer ta solution. Compte tenu que la valeur 4 est déclarée dans le module, je ne suis pas parti sur l'idée d'écrire quatre fois la ligne.

[Bertrand56]

Re bonjour,
je viens d'essayer ta solution, elle fonctionne parfaitement. En information pour d'autre utilisateur, voici comment j'ai procédé avec les bons conseils de Julien42.
J'ai supprimé le module et sa référence sur le code de "BoutonImprimerMonEtat" puis écris dans ce code quatre fois la ligne faisant appel à l'impression.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub BoutonImprimerMonEtat_Click()
On Error GoTo Err_BoutonImprimerMonEtat_Click
 
    Dim stDocName As String
 
    stDocName = "MonEtat"
    DoCmd.OpenReport stDocName, acNormal, , "[IdExpedition]=" & Me![IdExpedition]
    DoCmd.OpenReport stDocName, acNormal, , "[IdExpedition]=" & Me![IdExpedition]
    DoCmd.OpenReport stDocName, acNormal, , "[IdExpedition]=" & Me![IdExpedition]
    DoCmd.OpenReport stDocName, acNormal, , "[IdExpedition]=" & Me![IdExpedition]
Exit_BoutonImprimerMonEtat_Click:
    Exit Sub
 
Err_BoutonImprimerMonEtat_Click:
    MsgBox Err.Description
    Resume Exit_BoutonImprimerMonEtat_Click
End Sub

La solution est parfois bien simple.

Merci beaucoup.
Salutation.