Choix d'une imprimante

Y compris Power BI, Power Query et toute autre question en lien avec Excel
s
sylvainpyc
Membre habitué
Membre habitué
Messages : 56
Inscrit le : 14 octobre 2014
Version d'Excel : 2007 fr

Message par sylvainpyc » 23 mai 2019, 18:10

Bonjour,

J'ai ce code qui me permet d'ouvrir la boite de dialogue d'impression d'excel :
Private Sub CommandButton1_Click()
Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
End Sub
Je voudrais svp avant que la boite de dialogue s'ouvre :
- préciser le nom de l'imprimante "PERSYCAT ACCUEIL"
- préciser le format "A3"
- préciser en couleurs
- préciser imprimer la sélection
- préciser l'orientation "paysage"


Pouvez-vous m'aider svp ?

Je vous remercie beaucoup

Cordialement
s
sylvainpyc
Membre habitué
Membre habitué
Messages : 56
Inscrit le : 14 octobre 2014
Version d'Excel : 2007 fr

Message par sylvainpyc » 23 mai 2019, 21:59

Avec ce code
Private Sub CommandButton1_Click()
Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
End Sub
Cela ouvre bien la boite de dialogue d'excel d'impression
mais si je fais retour à la page
Alors une macro avec userform prend un temps fou à s'executer
alors qu'elle est rapide si je ne clique pas sur le bouton imprimer
dès que je clique sur imprimer, la macro de l'useerform ralentit

Idem si je fais fichier => impression (si je valide l'impression ou si je fais retour, cela ralentit à fond l'execution de mon userform)

Avez-vous svp une explicaion ?

Je vous remercie

Cordialement
s
sylvainpyc
Membre habitué
Membre habitué
Messages : 56
Inscrit le : 14 octobre 2014
Version d'Excel : 2007 fr

Message par sylvainpyc » 24 mai 2019, 14:59

Ci joint une copie de la feuille qui pose problème de mon classeur

Merci de votre aide

Cordialement


SUITE
=> J'ai inséré au début du code du bouton "Valider" de mon userform cette ligne
Activesheet.DisplayPageBreaks = False
ce qui semble éliminer le pb
Dois-je ajouter en fin de code
Activesheet.DisplayPageBreaks = True
?

Donc je me retrouve avec la situation du premier message.
ci-joint le fichier exemple corrigé

Je vous remercie

Amicalement
Classeur14.xlsm
(783.73 Kio) Téléchargé 2 fois
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message