Sujet Précédent Sujet Suivant

Selection auto "Ne0x" pour imprimer

Résolu/Fermé
Jack_636 Messages postés 44 Date d'inscription jeudi 22 septembre 2011 Statut Membre Dernière intervention 12 décembre 2011 - 12 déc. 2011 à 09:36
Jack_636 Messages postés 44 Date d'inscription jeudi 22 septembre 2011 Statut Membre Dernière intervention 12 décembre 2011 - 12 déc. 2011 à 10:36
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 jeudi 22 septembre 2011 Statut Membre Dernière intervention 12 décembre 2011 9
12 déc. 2011 à 10:27
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 jeudi 22 septembre 2011 Statut Membre Dernière intervention 12 décembre 2011 9
12 déc. 2011 à 10:36
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