Choix d'une imprimante

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

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

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

11classeur14.xlsm (783.73 Ko)
Rechercher des sujets similaires à "choix imprimante"