Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

  • Initiateur de la discussion Initiateur de la discussion mariobros
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

M

mariobros

Guest
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...
 
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

J
Réponses
2
Affichages
859
J
J
Réponses
4
Affichages
20 K
julien0112
J
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…