Le papier est cher et ne doit pas être gaspillé. L’encre et le toner sont également chers et doivent être utilisés avec parcimonie dans le respect de notre environnement. Il n’est pas toujours nécessaire d’imprimer plusieurs pages dans le travail quotidien; une petite zone dans un tableau contenant toutes les données pertinentes est souvent suffisante. La macro suivante définit le marquage actuel comme zone d’impression. Un clic ultérieur sur le symbole IMPRIMER dans la barre d’outils STANDARD signifie que seule la zone marquée est imprimée.

Sub plagesurbrillanceimpression()
Dim s As String
s = Selection.Address
ActiveSheet.PageSetup.PrintArea = s
End Sub

Enregistrez la référence de cellule de la sélection dans une variable chaîne et transférez-la dans la propriété PrintRange   de l’objet PageSetup. Utilisez cette option pour définir la zone d’impression.

Définissez la propriété PrintArea sur False ou sur la chaîne vide (»«) pour définir la feuille entière comme zone d’impression, c’est-à-dire pour supprimer la zone d’impression qui vient d’être définie.