Macro impression pages x à y

[Johann]

Bonjour à tout le forum en ce dimanche pluvieux ;-)

Voilà, je souhaite faire une macro me permettant d'imprimer pour la feuille active, les pages x à y

Sub print_pages(a, b)
ActiveSheet.PrintOut From:=a, to:=b, Preview:=False
End Sub

Mais j'ai du oublier quelque chose... ;-)

 

[Bernard]

Bonjour Johann

Je te joints un fichier dans lequel l'impression est paramétrée et contrôlée.

Cela te donneras sûrement un bon modèle.

Cordialement

Bernard

 

[Johann]

Ok c'est bon maintenant.
A priori, ca venait du fait que je n'etais pas relié à une imprimante et que il ne voulait pas imprimer dans le vide. Là j'ai essayé sur un autre poste et c'est ok.

Merci encore.