Zone d'impression en VBA

[Stéph79]

Bonjour à tous,

J'ai quelques soucis pour la définition d'une zone d'impression en VBA.

La sélection n'est pas prise dans cette zone.
Voici le code que j'utilise : ActiveSheet.PageSetup.PrintArea = CurrentRegion
Il existe probablement une autre manière de le faire ?

D'avance merci pour votre avis et votre aide.

Stéph79

 

[CBernardT]

Boonjour Stéph79 et le forum,

Essayes avec cette ligne de code :

ActiveSheet.PageSetup.PrintArea = '$A$1:$G$35'

Cordialement

Bernard

 

[Hervé]

bonjour steph, bernard 🙂

printarea attend une addresse, et non une plage de valeur.

currentregion doit etre précédé d'un range.

ActiveSheet.PageSetup.PrintArea = ActiveCell.CurrentRegion.Address

ou

ActiveSheet.PageSetup.PrintArea = range('a1').CurrentRegion.Address

salut

Message édité par: hervé, à: 27/05/2006 11:34

 

[Stéph79]

Bonjour Hervé, Bernard,

Merci pour vos messages.

Hervé, j'ai du mal à mettre en oeuvre ta proposition, en fait seul la cellule A1 fait partie de la zone d'impression.

En fait, je n'ai peut-être pas été suffisamment précis, la zone que je souhaiterais définir comme zone d'impression est déjà sélectionnée. Je voudrais que cette sélection devienne zone d'impression.

Merci pour votre aide.
Stéph79

 

[Hervé]

re 🙂

alors, tout simplement :

ActiveSheet.PageSetup.PrintArea = Selection.Address

salut

 

[Stéph79]

Hervé,

Comme tu dis : tous simplement ...
Dire que je buttais dessus depuis déjà un bon moment !

Merci beaucoup