Macro pour imprimer des zones nommées...

Christian0258 · 24 Mars 2013

Bonjour à tout le forum,

Je dois imprimer des planches d'étiquettes, 3X8 (adhésives) colonnes A,B et C .

J'ai déclaré les zones d'étiquettes comme suit ; page1, page2, page3 jusqu'à page25.

Je souhaiterais votre aide à l'écriture d'une macro afin imprimer de ces pages déclarées...si la première cellule, de chaque zone déclarées (page1 à page25), est non vide afin de ne pas lancer l'impression de pages vierges...

Merci pour le temps que vous voudrez bien vouloir m'accorder.

Bien amicalement,
Christian

job75 · 24 Mars 2013

Re : Macro pour imprimer des zones nommées...

Bonsoir Christian,

Code:

Sub ImprimerZones()
Dim i As Byte
For i = 1 To 25
  With Evaluate("page" & i)
    If .Cells(1) <> "" Then
      .Parent.PageSetup.PrintArea = .Address
      .Parent.PrintOut
    End If
  End With
Next
End Sub

A+

Christian0258 · 24 Mars 2013

Re : Macro pour imprimer des zones nommées...

Re, le forum, job75,

Bonjour, job75,

Après essai ta macro fonctionne parfaitement.
Je pense que ta macro va interresser pas mal de personnes...

Encore un grand merci.

Bien à toi,
Christian

Macro pour imprimer des zones nommées...

Christian0258

XLDnaute Accro

job75

XLDnaute Barbatruc

Christian0258

XLDnaute Accro

Discussions similaires

Macro pour imprimer des zones nommées...

Christian0258

XLDnaute Accro

job75

XLDnaute Barbatruc

Christian0258

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency