Définir zone d'impression en vba

lebtibo33 -  
Heliotte Messages postés 1491 Date d'inscription   Statut Membre Dernière intervention   -
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



A voir également:

1 réponse

Heliotte Messages postés 1491 Date d'inscription   Statut Membre Dernière intervention   92
 
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
0