macro avec imprimante sur port usb

[ebinet]

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