XL 2016 impression quantité etiquette

[lamho27]

Bonjour à Toutes & Tous,
j'ai 8 étiquettes chaque page, je voudrais imprimer nombres étiquettes par le bouton clic

Qui peut me donner le code en VBA pour imprimer avec quantités étiquette dans cellule B3.

Vous remerciant par avance..

 

[Lone-wolf]

Re

Cela dit quel est l'intérêt d'imprimer 1E+08 8 fois dans chaque page ?

@job75 : ça c'est monsieur qui peux répondre.

 

[job75]

Re,

Ce qui est bizarre, c'est quand tu vas dans fichier > imprimer, la feuille est en noir et blanc sans ces lignes en couleur.

C'est parce que l'option "Qualité brouillon" est cochée.

Pour la décocher onglet MISE EN PAGE => Taille => Autres tailles de papier => Feuille.

A+

 

[Lone-wolf]

Re

@job75 Merci job75

 

[job75]

Re,

Pour que l'impression des lignes 12-13 ait un sens il suffit de diminuer la taille de la police (20 ici) :

Sub Imprimer()
Dim Npage&, Nder%, pas%, Nmasque%, n&, lig&, p%
With Feuil1 'CodeName
    .[B3] = Int(Val(.[B3]))
    Npage = Application.Ceiling(.[B3] / 8, 1)
    If Npage < 1 Then Exit Sub
    Nder = .[B3] - 8 * (Npage - 1) 'nombre d'étiquettes en dernière page
End With
pas = 14 'à adapter
Nmasque = 1 'nombre de lignes à masquer à chaque pas, à adapter
With Feuil7 'CodeName de la feuille à imprimer
    .Visible = xlSheetVisible 'au cas où...
    .Copy 'document auxiliaire
End With
With ActiveWorkbook.Sheets(1)
    For n = 1 To Npage
        lig = 1 + (n - 1) * pas * 4 'n° de la 1ère ligne
        '---masquage des lignes à ne pas imprimer(14), taille de la police (12-13)---
        For p = 1 To 4
            .Rows(lig + pas * p - Nmasque).Resize(Nmasque).Hidden = True
            .Rows(lig + pas * p - 3).Resize(2).Font.Size = 20
        Next
        '---effacement des étiquettes excédentaires en dernière page---
        If n = Npage Then Rows(lig + pas * Application.Ceiling(Nder, 2) / 2).Resize(pas * 4).Clear
        '---mise en page---
        With .PageSetup
            .PrintArea = "$A$" & lig & ":$Q$" & lig + pas * 4 - 1 'zone d'impression
            .Zoom = False
            .FitToPagesWide = 1
            .FitToPagesTall = 1
        End With
        '---impression---
        .PrintPreview 'pour tester
        '.PrintOut 'pour imprimer
    Next
    .Parent.Close False 'fermeture du document auxiliaire
End With
End Sub

Fichier (2), toujours en "Qualité brouillon".

A+

 

[Lone-wolf]

Re job75

J'ai refais la mise en forme des étiquettes. Pas besoin de masquer ou autre.

 

[lamho27]

Bonjour à Toutes & Tous,
merci bien pour tout; mais toujours même problème" aperçu avant impression " ; est ce que vous pouvez me faire un peu plus simple impression directement sans passer " aperçu avant impression "
cordialement

 

[Staple1600]

Bonsoir le fil, Lone-Wolf, job75

Pour info
Job75 t'a déjà expliqué ce qu'il fallait modifier dans le code VBA...

Bonjour lamho27, Lone-wolf,
Bien sûr pour imprimer rendre active l'instruction .PrintOut 'pour imprimer
A+

 

[Lone-wolf]

Re à tous

@Staple1600 : c'est ce que je lui est dit moi aussi.

@lamho27 : regarde mon fichier impressions étiquettes.

 

[Staple1600]

Bonsoir le fil, le forum, lamho27, job75, Lone-Wolf

@Lone-wolf
Parfois on n'est pas trop de trois pour expliquer.
Et comme un homme averti en vaut deux

 

[job75]

De toute façon il y a un moment où il faut éteindre la lumière ou fermer les écoutilles.