Discussion :

[@rkane]

bonjour, bonjour,
pas trouvé dans les posts, et un peu pris pas le temps...
donc je pose la question , j'ai cette ligne de code pour impression d'un etat, mais je ne me rappelle plus où placer le nombre d'exemplaire pour une impression multiple... en l'occurence il me faut 3 exemplaires du document à imprimer.
merci d'avance

Code :

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

1
2
3
4
5
 
Private Sub Commande73_Click()
stDocName = "ChangementValideNumero"
DoCmd.OpenReport stDocName, acNormal
End Sub

[Faw]

Pris par le temps d'accord, mais il t'aurait falu moins de temps à trouver qu'à poster
http://access.developpez.com/faq/?pa...lrsExemplaires

[@rkane]

salut Faw,
oui j'ai bien vu cet article dans la FAQ, mais pas moyen de le faire fonctionner... j'ai bien créé le module tel qu'il y est presenté ; sur le bouton imprimer du form j'ai bien placer la ligne de commande avec le nom de l'etat concerne mais ça coince
j'ai une msgbox :
erreur de compilation
attendu : =

voila le code que j'ai sur le bouton :

Code :

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

1
2
3
4
5
6
 
Private Sub Commande73_Click()
'stDocName = "ChangementValide"
'DoCmd.OpenReport stDocName, acNormal
fgImprimeCopiesEtat("ChangementValide",2)
End Sub

Mais est-ce possible d'obtenir le même resultat en completant le code initial :

Code :

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

1
2
3
4
5
 
Private Sub Commande73_Click()
stDocName = "ChangementValide"
DoCmd.OpenReport stDocName, acNormal
End Sub

Si oui comment ?

[Norin]

Pour ton code:

Code :

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

1
2
3
4
5
Private Sub Commande73_Click()
stDocName = "ChangementValide"
DoCmd.OpenReport stDocName, acNormal
fgImprimeCopiesEtat("ChangementValide",2)
End Sub

essai ça voir...

Code :

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

1
2
3
4
5
6
 
Private Sub Commande73_Click()
stDocName = "ChangementValide"
DoCmd.OpenReport stDocName, acNormal
call fgImprimeCopiesEtat("ChangementValide",2)
End Sub

Je ne crois pas vraiment que ça marche nickel, mais pour moi les erreurs du type "=" sont très souvent résolu par un simple ajout du mot Call ^^

[@rkane]

juste un truc... pour etre sûr de parler le même langage dans mon code que tu evoques, les 2 premieres lignes sont mises en commentaires pour ne pas les supprimer totalement... Alors dois- je les remette en service ou bien la 3eme ligne fonctionne t'elle toute seule ?

[@rkane]

Je suis passé par une macro transformée en code :

Code :

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

1
2
3
4
5
6
7
 
Private Sub Commande69_Click()
MsgBox "ATTENTION L'IMPRESSION SE FAIT DIRECTEMENT EN DOUBLE EXEMPLAIRE"
DoCmd.OpenReport "MonEtat", acViewPreview, "", "", acNormal
DoCmd.PrintOut acPrintAll, , , acLow, 2, True
DoCmd.Close acReport, "MonEtat"
End Sub

et ça fonctionne