OVH Cloud OVH Cloud

Impression d'un état

3 réponses
Avatar
sab
Bonjour,
Serait il possible, s'il vous plaît de m'aider sur mon pb;

Je voudrais imprimer un état (avec une condition) grâce à la boite
d'impression.

Je sais qu'il faut utiliser le code suivant : DoCmd.RunCommand acCmdPrint.
Mais quand je l'utilise, il m'imprime l'écran pour toutes les valeurs.

Merci pour votre aide.

3 réponses

Avatar
Raymond [mvp]
Bonjour.

docmd s'applique à l'objet actuel (qui a le focus), donc c'est ton
formulaire et non un état qui a le focus.
quelle est la condition à prendre dans la boite de dialogue ?

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"sab" a écrit dans le message de news:

Bonjour,
Serait il possible, s'il vous plaît de m'aider sur mon pb;

Je voudrais imprimer un état (avec une condition) grâce à la boite
d'impression.

Je sais qu'il faut utiliser le code suivant : DoCmd.RunCommand acCmdPrint.
Mais quand je l'utilise, il m'imprime l'écran pour toutes les valeurs.

Merci pour votre aide.




Avatar
sab
Je souhaiterai faire ceci mais ça ne fonctionne pas :


'Imprimer la liste des entreprises qui se trouvenrt sur une zone prédéfinie.
Private Imprimer_Click()
Dim stDocName As String
Dim condition As String

stDocName = "rpt Liste des entreprises"
condition = "[Code ZA]=" & Code_ZA

'Vision du document à imprimer
DoCmd.OpenReport stDocName, acViewPreview, condition

'Lancer la boite d'impression pour imprimer le document
DoCmd.RunCommand acCmdPrint

'Fermer la vision du document à imprimer
DoCmd.Close

Peux tu me corriger mon erreure ????
Merci beaucoup par avance.
Avatar
Raymond [mvp]
je viens de tester sous access 2003 en changeant les noms bien sûr et avec
une seule modif (doevents), je n'ai aucun problème. l'impresssion de l'état
est fait , l'état fermé.
voici mon code:
Dim stDocName As String
Dim condition As String
stDocName = "etat1"
condition = "[numéro]=" & Me.Numéro
'Vision du document à imprimer
DoCmd.OpenReport stDocName, acViewPreview, condition

DoEvents

'Lancer la boite d'impression pour imprimer le document
DoCmd.RunCommand acCmdPrint
'Fermer la vision du document à imprimer
DoCmd.Close

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"sab" a écrit dans le message de news:

Je souhaiterai faire ceci mais ça ne fonctionne pas :


'Imprimer la liste des entreprises qui se trouvenrt sur une zone
prédéfinie.
Private Imprimer_Click()
Dim stDocName As String
Dim condition As String

stDocName = "rpt Liste des entreprises"
condition = "[Code ZA]=" & Code_ZA

'Vision du document à imprimer
DoCmd.OpenReport stDocName, acViewPreview, condition

'Lancer la boite d'impression pour imprimer le document
DoCmd.RunCommand acCmdPrint

'Fermer la vision du document à imprimer
DoCmd.Close

Peux tu me corriger mon erreure ????
Merci beaucoup par avance.