Macro pour imprimer quel que soit le port de l'imprimante

[asusfire]

Bonjour, j'ai une macro qui me permet d'imprimer une feuille sur une imprimante reseau, ca fonctionne tres bien mais le souci, c'est que si un autre utilisateur utilise mon fichier ca ne marche pas.
Cela vient du fait que l'imprimante n'est pas sur le meme port selon l'imprimante.
J'aimerais changer la macro pour que cela fonctionne sur tous les postes, quel que soit le port utilisé par l'imprimante Ne01,Ne02,Ne03....je pense qu'une boucle searit la solution mais je ne sait pas trop m'y prendre.


Voici un bout de la macro que j'utilise:

Sub Imprimer()

defaut = imprimante_par_defaut
Sheets("Feuil2").Select
Application.ActivePrinter = "\\serveur\imprimante sur Ne06:"
ExecuteExcel4Macro _
"PRINT(1,,,1,,,,,,,,2,""\\serveur\imprimante sur Ne06:"",,,,FALSE)"

Application.ActivePrinter = defaut
Sheets("Feuil1").Select

Merci d'avance pour vos reponses.