XL 2019 VBA / Macro Impression avec nombre de copies variables par feuille à imprimer

Gasner

XLDnaute Nouveau
Bonjour tout le monde,

Je vous remercie par avance pour le temps que vous allez me consacrer. Alors je rencontre un problème dans l'édition d'une macro qui imprime une liste de documents en fonctions de "Checkbox" renvoyant 1 ou 0.. Cependant, le nombre d'impression est variable par document.

En colonne A j'ai l'intitulé des feuilles / B : 1 ou 0 qui renvoie l'autorisation d'imprimer ou non , C "Check Box" qui renvoie1 ou 0 sur les colonnes B et en D je souhaiterai instaurer la variable Copies := à utiliser à chaque ligne au travers d'une boucle.

Merci pour l'aide.
Bonne journée

VB:
Sub imprime()
    Dim c As Range
    With Feuil2
        For Each c In .Range("b2:b" & .Range("b" & .Rows.Count).End(xlUp).Row)
            If c.Value And c.Offset(, -1) <> "" Then
                On Error GoTo erreur
                Sheets(c.Offset(, -1).Value).PrintPreview
                'Valider laligne ci-dessous pour imprimer et supprimer celle ci-dessus
                'Sheets(C.Offset(, -1).Value).PrintOut
            End If
        Next
    End With
    Exit Sub
erreur:
    MsgBox "Feuille " & c.Offset(, -1) & " inexistante"
    Resume Next
   Sheets("FEUILLE (2)").Select
    Range("D1").Select
    
End Sub
 

fanch55

XLDnaute Barbatruc
Bonjour,
Le nombre de copies ne s'applique que sur le printout :
Si vous devez le "vérifier", utilisez l'imprimante "Microsoft print to pdf" pour voir le fichier produit sans l'imprimer ...
'Valider la ligne ci-dessous pour imprimer et supprimer celle ci-dessus
Sheets(C.Offset(, -1).Value).PrintOut copies:=.cells(c.row,"D")
ou
Sheets(C.Offset(, -1).Value).PrintOut copies:=c.offset(,2).value
 

Discussions similaires