macro zone d'impression

[mythotem]

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]

Re : macro zone d'impression

Bonjour Mythotem, bonjour le forum,

peut-être comme ça :

ActiveSheet.PageSetup.PrintArea = ActiveSheet.UsedRange.Address

ou comme ça :

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

 

[mythotem]

Re : macro zone d'impression

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

 

[Robert]

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) :

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...