Selection auto "Ne0x" pour imprimer

Résolu
Jack_636 Messages postés 44 Date d'inscription   Statut Membre Dernière intervention   -  
Jack_636 Messages postés 44 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'utilise une macro pour imprimer une zone sélectionnée avec le code :

"Application.ActivePrinter = "DYMO LabelWriter 330 Turbo-USB sur Ne03:""

sauf que de temps en temps il faut changer le numéro de "NeOx"

comment puis je faire pour que le numéro soit choisi automatiquement ?

Merci

Bonne journée





2 réponses

Réponse 1 / 2
Jack_636 Messages postés 44 Date d'inscription   Statut Membre Dernière intervention   9
 
J'ai le début d'une piste

Sub choiximprim()

Dim Nom As String
Dim aa As Integer

For aa = 0 To 9
Nom = "DYMO LabelWriter 330 Turbo-USB sur Ne0" & aa & ":"
OnErrorResumeNext
Application.ActivePrinter = Nom
If ActivePrinter = Nom Then Exit For
Next
ActiveSheet.PageSetup.PrintArea = "$G$1:$G$8"

End Sub

Mais la fonction pour passer au suivant (OnErrorResumeNest) si erreur ne fonctionne pas.
0
Réponse 2 / 2
Jack_636 Messages postés 44 Date d'inscription   Statut Membre Dernière intervention   9
 
Et voici ma macro final qui fonctionne :

Sub choiximprim()

For aa = 0 To 9
Nom = "DYMO LabelWriter 330 Turbo-USB sur Ne0" & aa & ":"
On Error Resume Next
Application.ActivePrinter = Nom
If ActivePrinter = Nom Then Exit For
Next
ActiveSheet.PageSetup.PrintArea = "$G$1:$G$8"
ActiveWindow.SelectedSheets.PrintOut Copies:=1

End Sub
0