Changer d'imprimante automatiquement

K

kllmoon

XLDnaute Occasionnel

• 4 Janvier 2010

• #2

Re : Changer d'imprimante automatiquement

Pourquoi ne pas indiquer le chemin d'accès complet. Je ne sais aps ce que représentent tes xxxx mais si c'est le username alors ça ne fonctionnera pas. Utilise mavariable = Environ("username") pour avoir le nom de login de windows.

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 4 Janvier 2010

• #3

Re : Changer d'imprimante automatiquement

Bonjour

kllmoon à dit:

Pourquoi ne pas indiquer le chemin d'accès complet. Je ne sais aps ce que représentent tes xxxx mais si c'est le username alors ça ne fonctionnera pas...

Cliquez pour agrandir...

Non ce qui pose problème c'est le on Ne11: ce numéro est variable d'une machine à l'autre.

Il faut que je retouve : il y eu sur ce forum ou un autre un code pour repérer les numéro d'imprimantes d'un poste.

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 4 Janvier 2010

• #4

Re : Changer d'imprimante automatiquement

Bonsoir le fil 🙂,
Effectivement, il me semble que Ne11 signifie la 11 ème imprimante installée sur la machine...
Une solution que j'avais utilisée, un peu bourrin mais efficace, c'est une gestion d'erreur avec une boucle

Code:

[COLOR=red][B]On Error Resume Next[/B][/COLOR]
[COLOR=red][B]For I = 1 to 20[/B][/COLOR]
[COLOR=#4169e1]Application.ActivePrinter = "\\xxxxxxxx\PRINTER_COLOR on Ne[B][COLOR=#ff0000]" & Format(I, "00") & "[/COLOR][/B]:"
ExecuteExcel4Macro _
"PRINT(1,,,1,,,,,,,,2,""\\xxxxxxxx\PRINTER_COLOR on Ne[B][COLOR=#ff0000]" & Format(I, "00") & "[/COLOR][/B]:"",,TRUE,,FALSE)"[/COLOR]
[B][COLOR=#ff0000]Next I[/COLOR][/B]
[B][COLOR=#ff0000]On Error GoTo 0[/COLOR][/B]

Bon courage 😎

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 4 Janvier 2010

• #5

Re : Changer d'imprimante automatiquement

Bonsoir

Oui perso j'avais aussi utilisé une boucle pour faire cela

Il doit y avoir un fil sur le sujet

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 4 Janvier 2010

• #6

Re : Changer d'imprimante automatiquement

re

les voilà

https://www.excel-downloads.com/threads/choix-imprimante.61663/

https://www.excel-downloads.com/threads/imprimante-sur-port-usb-variable.46536/

 

Vote positif 0 Vote négatif

P

Patrick_Francis

Guest

• 5 Janvier 2010

• #7

Re : Changer d'imprimante automatiquement

Bonjour à tous,

Merci beaucoup pour les posts attachés, je vais tester cela de suite et je ne manquerai pas de vous faire savoir si cela fonctionne 🙂

P.

 

Vote positif 0 Vote négatif

P

Patrick_Francis

Guest

• 5 Janvier 2010

• #8

Re : Changer d'imprimante automatiquement

Voilà j'ai fais mes essais. Ca fonctionne parfaitement bien avec la fonctiond e Nattifar dans un des anciens postes.

C'est rigolo ca propose de choisir l'imprimante dans une petite boite, tres sympa.

Merci encore à tous !
P.

 

Vote positif 0 Vote négatif