Choix d'imprimante!

[Temjeh]

Bonjour à tous

Je cherche une genre de boucle pour choisir la bonne imprimante:ceci bug et en plus c'est pas tres fort comme pass-pass:

On Error GoTo suiv
Application.ActivePrinter = "EPSON Stylus C88 Series sur Ne02:"
GoTo fin
suiv:

On Error GoTo suiv2
Application.ActivePrinter = "EPSON Stylus C88 Series sur Ne03:"
GoTo fin
suiv2:
On Error GoTo fin
Application.ActivePrinter = "EPSON Stylus C88 Series sur Ne04:"
fin:

Le hic est que le Ne02, Ne03, Ne04 change

Merci beaucoup

Temjeh

 

[PascalXLD]

Re : Choix d'imprimante!

Bonjour

Je retrouve un fil sur le forum où on parlait de cela

 

[Temjeh]

Re : Choix d'imprimante!

Merci Pascal j'ai posté trop vite:

For aa = 0 To 9
Nom = "EPSON Stylus C88 Series sur Ne0" & aa & ":"
On Error Resume Next
Application.ActivePrinter = Nom
If ActivePrinter = Nom Then Exit For
Next

A+

Temjeh

Trouvé ici:

https://www.excel-downloads.com/threads/changement-dimprimante.105069/

Une vrai mine d'or ce Textbox recherche ...désolé

 

[PascalXLD]

Re : Choix d'imprimante!

Re

Le voilà

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