Discussion :

[dlight]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

x=activeprinter

Sans résultat

Merci à l'avance

Dlight

[dlight]

Bonjour à tous.

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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