OVH Cloud OVH Cloud

Pb d'impression

1 réponse
Avatar
Sab
Bonjour =E0 toutes et =E0 tous=20

Voici mon p,=20
je voudrais imprimer un document selon les diff=E9rentes=20
imprimantes qui sont en r=E9seaux, Pour cela j'utilise le=20
code suivant :

strEtat =3D "Document =E0 imprimer"
Condition =3D "[Code Bien]=3D" & Code_Bien
=20
' Ouvrir l'=E9tat
DoCmd.OpenReport strEtat, acPreview, , Condition

' D=E9finir l'imprimante de destination pour l'=E9tat
Reports(strEtat).Printer =3D _
Application.Printers(strImp)
=20
seulement cela me bloque =E0 ce niveau.
Message VBA : Erreur d'=E9xecution '5'
Argument ou appel de procedure incorrect.

Peut on me dire mon erreur ou m'aider =E0 r=E9soudre ce pb.
Merci d'avance.

1 réponse

Avatar
Raymond [mvp]
bonjour.

Si 2002 mini la syntaxe est la suivante:
DoCmd.OpenReport "nom d'état", acPreview
Reports("nom d'état").Printer = Application.Printers("nom d'imprimante")
ce que tu fais, il me semble.
as-tu vérifié l'orthographe de ton imprimante ?
es-tu bien en 2002 mini ?
il faudrait connaître ta version access car ce n'est pas du tout la même
solution si 97/2000 ou 2002/2003.
si 2002/2003 tu trouveras une librairie toute faite sur la page :
http://access.vba.free.fr/prnprinters.htm
si 97/2000 tu trouveras des procédures sur la page :
http://access.seneque.free.fr/etats.htm
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Sab" a écrit dans le message de
news:098c01c48f5e$59b44260$
Bonjour à toutes et à tous

Voici mon p,
je voudrais imprimer un document selon les différentes
imprimantes qui sont en réseaux, Pour cela j'utilise le
code suivant :

strEtat = "Document à imprimer"
Condition = "[Code Bien]=" & Code_Bien

' Ouvrir l'état
DoCmd.OpenReport strEtat, acPreview, , Condition

' Définir l'imprimante de destination pour l'état
Reports(strEtat).Printer = _
Application.Printers(strImp)

seulement cela me bloque à ce niveau.
Message VBA : Erreur d'éxecution '5'
Argument ou appel de procedure incorrect.

Peut on me dire mon erreur ou m'aider à résoudre ce pb.
Merci d'avance.