Problème avec l' aperçu d'impression en affichage "pleine page"

[mariobros]

J'ai crée une application excel en pleine page et j'ai constaté que l’Aperçu avant impression que j'ai fait via une macro ne fonctionne pas en plein page (on visualise bien la feuille, mais il manque le volet du choix de l'imprimante et le choix des paramètres), y a t'il possibilité lors de l'affichage de l’aperçu avant impression de passer en page normal puis de repasser en pleine page aussitôt après l'impression ???
Merci pour votre aide...

 

[mariobros]

Re : Problème avec l' aperçu d'impression en affichage "pleine page"

En fait:

Dès que je passe en affichage "pleine page" je n'est plus de volet de réglage.

 

[herve62]

Re : Problème avec l' aperçu d'impression en affichage "pleine page"

Une solution !
Soit via un bouton , ou direct en vba
Mode pleine page :

Sub Bouton1_Clic()
Application.DisplayFullScreen = Not (Application.DisplayFullScreen)
ActiveWindow.DisplayHeadings = Not (ActiveWindow.DisplayHeadings)
End Sub

Si l'on veut rester tel quel , ajouter le code VBA pour demander les paramètres d'impression du genre :
ActiveWindow.SelectedSheets.PrintOut From:=frpag, To:=topag, Copies:=nbcop, Collate :=True

Ou en quittant la feuille on fait :
Private Sub Worksheet_Deactivate()
Application.DisplayFullScreen = False
End Sub

Voilà ce n'est qu'une idée

 

[mariobros]

Re : Problème avec l' aperçu d'impression en affichage "pleine page"

Voici enfin la solution au problème:

Sub Imprimer()
Application.DisplayFullScreen = Not (Application.DisplayFullScreen)
ActiveWindow.DisplayHeadings = Not (ActiveWindow.DisplayHeadings)
ActiveWindow.SelectedSheets.PrintPreview
Application.DisplayFullScreen = True
ActiveWindow.DisplayHeadings = True
End Sub

Grand merci à Hervé62