Selection auto "Ne0x" pour imprimer

Résolu
Jack_636 Messages postés 23 Date d'inscription   Statut Membre Dernière intervention   -  
Jack_636 Messages postés 23 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

  1.
    Jack_636 Messages postés 23 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
  2. Jack_636 Messages postés 23 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