macro zone d'impression

mythotem · 1 Avril 2009

Bonjour à tous,

Je n'arrive pas à trouver la macro qui me définisse la zone d'impression ne contenant que des données.
A1 étant le point de départ de cette zone, les lignes et colonnes de fin étant variables.
Merci d'avance.

mythotem..

Robert · 1 Avril 2009

Re : macro zone d'impression

Bonjour Mythotem, bonjour le forum,

peut-être comme ça :

Code:

ActiveSheet.PageSetup.PrintArea = ActiveSheet.UsedRange.Address

ou comme ça :

Code:

ActiveSheet.PageSetup.PrintArea = Range("A1").CurrentRegion.Address

mythotem · 1 Avril 2009

Re : macro zone d'impression

Merci Robert,
mais étant un peu novice, comment dois-je enregistrer ta "formule" dans Virtual Basic ?
Cdt.
mythotem

Robert · 1 Avril 2009

Re : macro zone d'impression

Bonjour Mythotem, bonjour le forum,

Puisque c'est un zone d'impression je pense que la place la plus adaptée serait dans le composant ThisWorkbook avec la macro événementielle BeforePrint (le nom de l'onglet à actualiser bien sûr) :

Code:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheets("[B][COLOR=red]Feuil1[/COLOR][/B]").PageSetup.PrintArea = Range("A1").CurrentRegion.Address
End Sub

Mais tu pourrais aussi mettre le code dans un module et lancer la macro avant d'imprimer, à l'ouverture du classeur, etc... Il y a tellement de possibilités...

macro zone d'impression

mythotem

XLDnaute Junior

Robert

XLDnaute Barbatruc

mythotem

XLDnaute Junior

Robert

XLDnaute Barbatruc

Discussions similaires

macro zone d'impression

mythotem

XLDnaute Junior

Robert

XLDnaute Barbatruc

mythotem

XLDnaute Junior

Robert

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency