Probléme de marge avec macro

bonjour

J'ai une macro qui ouvre une feuille caché puis qui permet de voir cette feuille dans l'aperçu avant impression. Le prblme est que j'aimerais qu'aucune interveention sur les marges prédéfinit soit possible sur cette aperçu.
De plus l'option loupe doit être séléctionner.
Est ce possible ?
Si oui comment

voici ma macro :

Sub visuel1()
ThisWorkbook.Sheets('Feuil1').Visible = True

Sheets('Feuil1').Activate

ActiveWindow.SelectedSheets.PrintPreview

ThisWorkbook.Sheets('Feuil1').Visible = False

Sheets('Impression de masse').Select

End Sub

merci pour votre aide
crdlmt
Ðidier