définir zone d'impression en vba Fermé

Question

Bonjour, 
j'ai besoin d'éditer des étiquettes numéroté sur demande, c'est a dire que si j'en ai besoin de 52 il faut que j'en imprime 52 numéroté de 1 à 52 si il en faut 253 il me faut en imprimé 253 numéroté de 1 à 253.
pour cela j'ai donc copié collé 300 fois mon étiquette et souhaiterais donc une macro me permettant de définir mes zones d'impression en fonction du nombre d'étiquette que je veux. sachant que mon étiquette fait 6 colonnes sur 15 lignes.
connaissez vous une macro permettant cela?
merci d'avance



Configuration: Windows 7 / Chrome 23.0.1271.95

Heliotte · Answer

Bonjour lebtibo33,
A placer dans un module:
Dim NbEtiquette As Integer
    Dim EtikCol As Integer, EtikLig As Integer
    '
    EtikCol = 6
    EtikLig = 15
    NbEtiquette = 5
    '
    Dim s As String
    s = "$A$1:$F$" & Trim(Str(EtikLig * NbEtiquette))
    '
    ActiveSheet.PageSetup.PrintArea = s

Définir zone d'impression en vba

1 réponse

Discussions similaires