Imprimante TCP / Ip

Bonjour à tous.

Une fois de plus, j'ai besoin de votre aide.

L'an dernier, j'avais obtenu le chemin d'accès des imprimantes chez mon employeur dans le but de diriger l'impression de certains documents sur une autre imprimante que celle par défaut.

exemple de chemin d'imprimante de l'an dernier: \\sbs2003\ le nom de l'imprimante sur Ne07

Depuis ce temps, nous avons changé notre serveur. De plus, les imprimantes ont été créés avec l'adresse TCP/IP

Quelqu'un peux m'indiquer comment faire pour obtenir le chemin de mes imprimantes dans ce nouveaux réseau

j'ai essayé :

Code:

---

x=activeprinter

---

Sans résultat

Merci à l'avance

Dlight

Bonjour à tous.

À force de chercher, voici ce qu j'ai trouvé avec l'enregisteur de macros...

Code:

---

1 2 3 4 5 6

Range("A1:C9").Select ActiveSheet.PageSetup.PrintArea = "$A$1:$C$9"   Application.ActivePrinter = "Canon iR5050 UFR II sur Ne08:" ExecuteExcel4Macro _ "PRINT(1,,,1,,,,,,,,2,""Canon iR5050 UFR II sur Ne08:"",,TRUE,,FALSE)"

---

Ce code fonctionne bien

Comme j'ai plusieurs utilisateurs avec plusieurs imprimantes réseau au bureau, j'avais pensé mettre mes différents choix sur une feuille et utiliser une variable pour le nom.

Code:

---

1 2 3 4 5 6 7 8 9

allo = [Test1]     Range("A1:C9").Select ActiveSheet.PageSetup.PrintArea = "$A$1:$C$9"   Application.ActivePrinter = (allo) ExecuteExcel4Macro _ "PRINT(1,,,1,,,,,,,,2," & (allo) & ",,TRUE,,FALSE)"

---

ma variable allo représente Canon iR5050 UFR II sur Ne08:

J'ai l'erreur 1004 à la ligne 9.

Quelqu'un peut me dire ce que je ne fait pas de la bonne façon ?


Merci à l'avance

Salut, voir sur http://www.developpez.net/forums/d55...ge-macros-xl4/
Si j'ai bien lu l'imprimante ne fait pas partie des paramètres et doit être sélectionnée avant de lancer la macro XL4 avec qqch comme ceci

Code:

---

1 2 3 4 5 6 7 8 9

Dim sPrinterDefaut As String Dim sPrinter As String sPrinterDefaut = Application.ActivePrinter sPrinter = Imprimante Application.ActivePrinter=sPrinter ' La syntaxe de la macro XL4 sera à vérifier avec le lien donné plus haut ExecuteExcel4Macro ... Application.ActivePrinter= sPrinterDefaut

---

PS : la macro XL4 que tu utilises n'apporte pas grand chose en terme de performances, par contre Application.ExecuteExcel4Macro "PAGE.SETUP ... accélère nettement la vélocité de la mise en page par rapport au VBA généré par le macro recorder
A partir d'Excel 2010 il y a Application.PrintCommunication = False/True

Merci à vous KiKi29 !

Je vais tester le tout à mon retour au bureau.

Je vous informerai du résultat !!!

Dlight