imprimante sur port usb variable

[ebinet]

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.

 

[Natiffar]

Salut ebinet !

J'ai rencontré le même type de difficulté et j'ai fini par opter pour le code suivant :

Dim dlganswer As Boolean
        
        dlganswer = Application.Dialogs(xlDialogPrinterSetup).Show

    If dlganswer = True Then
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, collate:=True
    End If

Certes, c'est moins convivial pour l'utilisateur, mais au moins, si l'imprimante vient à changer, tu ne devras pas modifier ton code.

@+

Natiffar :evil:

 

[PascalXLD]

Bonjour

Tu peux aussi boucler pour imprimer sur le bon port

 

[ebinet]

bonsoir Natiffar,

merci pour ta proposition, ca resou effectivement le probleme et je n'aurai pas été capable de réaliser cette macro.
Donc j'ai encore appris quelque chose.
merci encore.

 

[ebinet]

bonsoir pascal76,

merci de ta réponse mais 'boucler' ne me parle pas trop.
Si ce n'est pas trop long pour toi de donner un exemple, il sera utile à au moins à 2 personnes.

 

[PascalXLD]

Re

En fait j'avais eu le même problème avec une appli qui faisait une transformation en pdf mais l''imprimante pdf' n'etais pas toujours sur le même port. Donc je n'avais pas trouvé d'autre solution de faire une boucle qui donnerait à peuprès ceci pour toi

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

Bon courage

Message édité par: Pascal76, à: 09/12/2005 08:04

 

[ebinet]

bonjour Pascal, le forum

J'ai testé ta solution, ca marche impec.
C'est 'simple' et efficace et j'ai a nouveau appris une nouvelle fonction (on error resume next).

MERCI

 

[Natiffar]

Ah oui, elle est pas celle-là !

Merci beaucoup