Zone d'impression automatique

[TITI]

Bonjour le forum

Voici un petit problème ou je cherche une solution.

Comment définir une zone d'impression dans une feuille avec un bouton macro

sur une feuille un tableau dont les lignes sont jamais identique, avoir un bouton qui selectionne la zone et l'imprime.

peut-être une solution?

merci

 

[WILFRIED]

SAlut titi:

voici le code VBA pour ce que tu souhaite faire:
sub zn_impression
'si ton tableau commence en A1
range('A1').select
seletion.currentregion.select
activesheet.pagesetup.printarea=selection.address
end sub

Et voila

 

[Titi]

rebonjour au forum
merci a toi mais la macro bug au niveau
seletion.CurrentRegion.Select

si tu as la solution

merci de ton aide

 

[Bernard_XLD]

Bonjour Titi, Wilfried, le forum

c'est une simple faute d'orthographe sur Selection et non seletion, sélection d'ailleurs inutile, la ligne suivante fait la même chose:

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

par contre, cela suppose que ton tableau commence en A1 et qu'il n'y ait pas de ligne ou colonne vide dans le tableau
ensuite pour imprimer:

ActiveWindow.SelectedSheets.PrintOut Copies:=1

Cordialement, A+

 

[Titi]

Merci çà marche pas mal

un petit truc tout de même si j'ai des lignes ou des colonnes vides et apres d'autres garnies comment faire une impression jusqu'a la derniere cellules garnies.

merci quand même

A+ TITI

 

[Bernard_XLD]

Re bonjour

une instruction différente mais non compatible excel97 (et peut être mac) et qui renvoie la plage utilisée dans une feuille de calcul

ActiveSheet.PageSetup.PrintArea = ActiveSheet.UsedRange.Address

B)

A+

 

[Titi]

Merci a tous vous deux.

solution trouvée
A+ titi


Avec encore une fois tous mes remerciements

 

[WILFRIED]

SAlut TITI, Yeahou,

Le message d'erreur était normal car j'ai fait une coquille :
seletion.curr.....

c'était :
selection.curr...........

Voila, A plus