[AC-2007] impression d'un état en plusieurs exemplaires [Résolu]

[gerarddurand]

Bonsoir,

Je n'arrive pas a imprimer un état 'facture' en deux exemplaires.

J'ai trouvé dans la F.A.Q. l'exemple de tee_grandbois

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Dans un module, écrire la fonction suivante :
Public sub fgImprimeCopiesEtat(stEtat As String, itCopies As Integer)
 ' stEtat   : nom de l'état
 ' itCopies : nombre de copies
DoCmd.OpenReport stEtat, acViewPreview
DoCmd.PrintOut acPages, , , , itCopies
DoCmd.Close acReport, stEtat
End sub
Utilisation :
 
Sur un bouton imprimer d'un formulaire :
fgImprimeCopiesEtat("MonEtat",3)
Ceci imprime trois exemplaires du même état.

J'ai donc intégrer le code

Code :

1
2
3
4
5
6
7
8
9
10
 With CodeContextObject
 
    If (Not IsNull(.NTableChambre)) Then
        DoCmd.OpenReport "rptFacture", acViewNormal, "", "[NTableChambre]=" & .NTableChambre, acWindowNormal
        fgImprimeCopiesEtat("rptFacture",2)
 
        On Error Resume Next
        DoCmd.Requery ""
    End If
End With

A la fin de la saisie j'ai le message d'erreur: erreur de compilation: attendu =

que faire?

salutations

[tee_grandbois]

Bonsoir,
Essaie de mettre l'instruction "Call " devant fgImprimeCopiesEtat.

[gerarddurand]

bonjour tee_grandbois,

Essaie de mettre l'instruction "Call " devant fgImprimeCopiesEtat.

en effet avec call et les modifs qui vont avec plus d"erreur mais une seule copie de ma facture

cordialement

[gerarddurand]

re bonjour,
autant pour moi tee_grandbois, tout fonctionne parfaitement.

merci

[tee_grandbois]

Bonjour gerarddurand,
content de t'avoir dépanné
Ce code date de la version Access 2000 et à l'époque il n'était pas obligatoire de préceder l'appel d'une fonction ou d'un sub avec Call.
Par contre, je pense que la commande

Code :

DoCmd.OpenReport stEtat, acViewPreview

dans fgImprimeCopiesEtat n'est pas approprié (voire inutile) si on désire filtrer l'état, comme dans ton cas.