Sauvegarder paramètres d'impression

[Claudy]

Re bonjour le forum,
Un tableau avec des paramètres d'impression( Pied de page, paysage, etc...) prédéfinis.
Y a t'il moyen par macro de sauvegarder ces paramètres, d'imprimer avec d'autres paramètres, et rétablir les paramètres du départ?
J'espère avoir été clair....
Merci d'avance,
Claudy

 

[tototiti2008]

Re : Sauvegarder paramètres d'impression

Bonjour Claudy,

Il y a un outil intéressant pour ça : les affichages personnalisés

Tu fais ta première mise en page comme tu veux

Menu Affichage - Affichages personnalisés
Bouton Ajouter
donne lui un nom
OK

Tu fais ta 2ème mise en page

Menu Affichage - Affichages personnalisés
Bouton Ajouter
donne lui un nom
OK

Puis grâce au bouton Afficher des affichages personnalisés tu peux passer de l'un à l'autre

 

[Claudy]

Re : Sauvegarder paramètres d'impression

Bonjour et merci TotoTiti...
Suite à ton conseil, avec l'enregistreur de macro, j'ai pondu la macro cidessous qui me convient très bien!

Sub ImprimerTableau()
derligne = Range("B64000").End(xlUp)(2).Row
ActiveSheet.PageSetup.PrintArea = "$A$1:$I$1" & derligne 'Sélectionne tableau entier
ActiveWorkbook.CustomViews("ImprimerTableauEntier").Show
ActiveWindow.SelectedSheets.PrintPreview

ActiveWorkbook.CustomViews("ACKFactures").Show
'ActiveWindow.SelectedSheets.PrintPreview

End Sub
A+
Claudy