Macro pour imprimer feuille active sur l'imprimante par défaut

[sly25]

Bonjour,

je souhaite faire une macro utilisable sur plusieurs classeurs et plusieurs feuilles Excel. C'est une macro qui imprimerait la feuille active du classeur (sur laquelle je me trouve) sur l'imprimante par défaut ?

J'ai fais cela mais je ne suis pas convaincu de ces lignes de codes :
Sub impression()
ActiveSheet.PrintOut => pour imprimer la feuille active
End Sub

Est ce possible ?

Merci d'avance

 

[Paritec]

Re : Macro pour imprimer feuille active sur l'imprimante par défaut

Bonsoir sly25 le forum
bah oui cela devrait être tout bon
a+
papou 🙂

 

[sly25]

Re : Macro pour imprimer feuille active sur l'imprimante par défaut

Bonjour,

le petit script marche bien. J'aimerais juste savoir comment rajouter des options à savoir imprimer en noir et blanc par exemple ?

Merci d'avance

 

[job75]

Re : Macro pour imprimer feuille active sur l'imprimante par défaut

Bonjour sly25, salut papou,

Ce sont les paramètres de la Mise en page qu'il faut adapter.

Par exemple pour une impression en noir et blanc :

Sub impression()
With ActiveSheet
  .PageSetup.BlackAndWhite = True
  .PrintOut
  .PageSetup.BlackAndWhite = False 'réinitialisation en couleur
End With
End Sub

A+