Zone d'impression variable et aperçu

Résolu/Fermé
Argentomaouss - 3 avril 2009 à 23:31
Argentomaouss Messages postés 15 Date d'inscription dimanche 18 mai 2008 Statut Membre Dernière intervention 30 novembre 2010 - 4 avril 2009 à 07:51
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

2 réponses

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 193
4 avril 2009 à 07:10
Bonjour,
ActiveSheet.PageSetup.PrintArea = Selection.Address
ou,
ActiveSheet.PageSetup.PrintArea = Range("A8").CurrentRegion.Address

A+
0
Argentomaouss Messages postés 15 Date d'inscription dimanche 18 mai 2008 Statut Membre Dernière intervention 30 novembre 2010 3
4 avril 2009 à 07:51
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.
0