macro avec imprimante sur port usb

ebinet

XLDnaute Nouveau
Bonjour,

Mon précedent post étant resté sans réponse, j'ai peut etre mal formulé le probleme. Le voici donc a nouveau.

J'ai la macro ci-après qui permet d'imprimer un doc excel sur une imprimante spécifique qui n'est pas celle par defaut.
La macro a donc pour but de selectionner cette imprimante usb.
mais le problème c'est que windows n'affecte pas toujours le meme N° de port à l'imprimante (ce qui est déterminé par 'Ne02' dans la macro). Si l'imprimante n'a pas sur le port Ne02 mais Ne01 par exemple, la macro ne fonctionne pas.
Ma question est donc comment modifier la macro pou qu'elle prenne en compte ce parametre variable ou sinon comment forcer windows a affecter toujours le meme N. de port à cette imprimante?
Espérant que cette clarification me permettra d'obtenir de l'aide.


Sub etiquetterouleau()
'
'
Application.ActivePrinter = 'EPSON Stylus C82 Series sur Ne02:'
ActiveWindow.SelectedSheets.PrintOut Copies:=Range('H4'), ActivePrinter:= _
'EPSON Stylus C82 Series sur Ne02:', Collate:=True
End Sub
 

Statistiques des forums

Discussions
312 894
Messages
2 093 381
Membres
105 713
dernier inscrit
Karimov