Zone d'impression variable et aperçu Résolu

Question

Bonjour,

Soit un tableau avec un nombre de lignes variables. 

Je voudrais, avant d'imprimer mon tableau que l' utilisateur ait un aperçu avant impression.

J'ai donc la macro suivante, dans laquelle je cherche par quoi remplacer les ??????  afin d'imprimer la sélection effectuée par la première ligne de ma macro.

Range("A8").CurrentRegion.Select 
    ActiveSheet.PageSetup.PrintArea = "??????????????" 
    ActiveWindow.SelectedSheets.PrintPreview

Jusqu'à maintenant quoique j'aie essayé de mettre à la place, j'ai toujours eu un message d'erreur d'exécution : "Impossible de définir la propriété de PrintArea dans la classe PageSetup"

Ca doit certainement être tout con pour un pro des macros, mais après de multiples recherches je sèche....

Alors, merci d'avance pour votre aide

lermite222 · Answer

Bonjour,
ActiveSheet.PageSetup.PrintArea = Selection.Address
ou,
ActiveSheet.PageSetup.PrintArea = Range("A8").CurrentRegion.Address

A+

Argentomaouss · Answer

OK, ça marche.

J'avais essayé avec Address mais en n'y mettant qu'un seul "D" comme c'était noté sur un autre forum...

Quoiqu'il en soit, merci beaucoup à toi.

Zone d'impression variable et aperçu

2 réponses

Votre réponse

Discussions similaires

Newsletters