Zone d'impression automatique

WILFRIED

XLDnaute Impliqué

• 30 Mars 2005

• #2

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

 

Vote positif 0 Vote négatif

T

Titi

Guest

• 30 Mars 2005

• #3

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

si tu as la solution

merci de ton aide

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

• 30 Mars 2005

• #4

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+

 

Vote positif 0 Vote négatif

T

Titi

Guest

• 30 Mars 2005

• #5

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

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

• 30 Mars 2005

• #6

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+

 

Vote positif 0 Vote négatif

T

Titi

Guest

• 30 Mars 2005

• #7

Merci a tous vous deux.

solution trouvée
A+ titi


Avec encore une fois tous mes remerciements

 

Vote positif 0 Vote négatif

WILFRIED

XLDnaute Impliqué

• 31 Mars 2005

• #8

SAlut TITI, Yeahou,

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

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

Voila, A plus

 

Vote positif 0 Vote négatif