bonjour
je voudrai lancer une macro en fonction de l'imprimante par default qui est installé ( exemple lexmark x2250 ) . Il y a t'il un code dans ce sens.
merci
merci de ta reponse , mais en fait je cherche plutot a faire en sorte que :
si la lexmark est installé en imprimante par default
alors on lance la macro 1
sinon la macro 2.
c'est un peu le meme principe que de lancer une macro selon la valeur d'une cellule. mais je ne sais pas comment ecrire cela en vba.
bonjour le forum
j'ai utuliser le code suivant mais je pense que " Application.ActivePrinter " ne convient pas
Code:
Private Sub Workbook_Open()
stImp = Application.ActivePrinter
If Dir(stImp) = "Lexmark 2250" Then
MsgBox ("tout va bien")
Else
MsgBox ("c'est pas bon ")
End If
End Sub
Attention : Une imprimante pour Windows est autre chose qu'un périphérique d'impression.
De ce fait un code du type :
' If Application.ActivePrinter = "Lexmark 2250" then ...
ne peut pas fonctionner.
L'instruction suivante te donnera le nom complet de l'imprimante active (au sens Windows du terme).
Code:
MsgBox Application.ActivePrinter
et tu pourras alors écrire
Code:
If Application.ActivePrinter = "[COLOR=green][B]Le nom complet de l'imprimante[/B][/COLOR]" Then
MsgBox ("tout va bien")
Else
MsgBox ("c'est pas bon ")
End If