Excel Downloads Forums - Afficher un message

ebinet · 05/10/2005, 14h58

bonjour à tous,

j'ai un soucis avec le code ci-après dont le but est d'imprimer un doc (via un bouton de macro) sur une imprimante qui n'est pas celle par défaut.
Le problème est que le N° de port USB de cette imprimante change.
Celui spécifié dans le code n'étant parfois plus bon, il y a un message d'erreur. En changeant le N° de port dans le code (Ne02), cela refonctionne.
Comment faire pour forcer windows à attribuer toujours le meme N° de port USB à cette imprimante ou modifier le code pour qu'il retrouve l'imprimante ?

voici le code actuel :

Sub etiquetterouleau()
'
'
Application.ActivePrinter = 'EPSON Stylus C82 Series sur Ne02:'
ActiveWindow.SelectedSheets.PrintOut Copies:=Range('H4'), ActivePrinter:= _
'EPSON Stylus C82 Series sur Ne02:', Collate:=True
End Sub

Merci de votre aide.

05/10/2005, 14h58	#1 (permalink)
ebinet XLDnaute Nouveau Date d'inscription: octobre 2005 Messages: 27	imprimante sur port usb variable bonjour à tous, j'ai un soucis avec le code ci-après dont le but est d'imprimer un doc (via un bouton de macro) sur une imprimante qui n'est pas celle par défaut. Le problème est que le N° de port USB de cette imprimante change. Celui spécifié dans le code n'étant parfois plus bon, il y a un message d'erreur. En changeant le N° de port dans le code (Ne02), cela refonctionne. Comment faire pour forcer windows à attribuer toujours le meme N° de port USB à cette imprimante ou modifier le code pour qu'il retrouve l'imprimante ? voici le code actuel : Sub etiquetterouleau() ' ' Application.ActivePrinter = 'EPSON Stylus C82 Series sur Ne02:' ActiveWindow.SelectedSheets.PrintOut Copies:=Range('H4'), ActivePrinter:= _ 'EPSON Stylus C82 Series sur Ne02:', Collate:=True End Sub Merci de votre aide.