Message box avant impression

P

PMO2

XLDnaute Accro

• 19 Novembre 2010

• #2

Re : Message box avant impression

Bonjour,

Essayez le code suivant dans ThisWorbook

Code:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Reponse
Reponse = MsgBox("Etes vous sûr de vouloir imprimer la référence " & ActiveSheet.[b9] & " ?", _
    vbYesNo + vbCritical, "Avertissement")
If Reponse = vbYes Then
  Application.EnableEvents = False
  ActiveSheet.PrintPreview
  Application.EnableEvents = True
  'remplacer par ActiveSheet.PrintOut pour lancer l'impression de la feuille active
Else
  Cancel = True
End If
End Sub

Cordialement.

PMO
Patrick Morange

 

Vote positif 0 Vote négatif

A

axel307

XLDnaute Nouveau

• 19 Novembre 2010

• #3

Re : Message box avant impression

Merci, pour le code.
La box s'affiche mais il n'y pas d'impression qui se lance si la réponse et oui.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Novembre 2010

• #4

Re : Message box avant impression

Bonjour à tous

axel307
Tu as suivi cette recommandation ?
(présent dans le code VBA de PMO )

Code:

'remplacer par ActiveSheet.PrintOut pour lancer l'impression de la feuille active

 

Vote positif 0 Vote négatif

A

axel307

XLDnaute Nouveau

• 22 Novembre 2010

• #5

Re : Message box avant impression

Merci de ton aide, je voudrais savoir s'il est possible d'avoir la Msg box plus grande?
Et s'il est possible d'ouvrir la boite de dialogue de l'imprimante, avant d'imprimer?

 

Vote positif 0 Vote négatif

Etienne2323

XLDnaute Impliqué

• 22 Novembre 2010

• #6

Re : Message box avant impression

Salut axel307, le fil,
tout d'abord, pour répondre à ta première question, je ne crois pas qu'il soit possible de redimensioner un msgbox. Je ne pourrais pas cependant pas l'affirmer à 100%. Toutefois, comme piste de solution, il serait peut-être utile de penser à vous tourner vers les userform.

Ensuite, pour votre seconde question, voici qui sert à afficher la fenêtre des propriétés d'impression.

Code:

Application.Dialogs(xlDialogPrint).Show

En espérant que cela réponde à vos questions,

Cordialement,

Étienne

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Novembre 2010

• #7

Re : Message box avant impression

Bonsoir


Non

Mais tu peux remplacer une MsgBox par un UserForm.

EDITION: Bing, bonsoir Etienne2323
Tout est dit
Je n'en dirai pas plus

 

Vote positif 0 Vote négatif

A

axel307

XLDnaute Nouveau

• 22 Novembre 2010

• #8

Re : Message box avant impression

Merci ça fonctionne.
Il me reste un petit probleme, lors de l'impression la boite de dialogue de l'imprimante apparait 2 fois.

Question c'est quoi Userform, je suis un novice en Vba.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Novembre 2010

• #9

Re : Message box avant impression

Bonsoir le Requin

axel307
Après avoir regardé Lien supprimé,tu peux aussi regarder là.
(Ainsi, tes 2 yeux seront comblés)

(Bonnes lectures)

 

Vote positif 0 Vote négatif

A

axel307

XLDnaute Nouveau

• 22 Novembre 2010

• #10

Re : Message box avant impression

Ok merci pour vos lumières.

Vous avez pas une idée, sur le faite que la boite de dialogue de l'imprimante se réouvre après avoir appuyer sur OK pour lancer l'impression?

 

Vote positif 0 Vote négatif

A

axel307

XLDnaute Nouveau

• 23 Novembre 2010

• #11

Re : Message box avant impression

Lorsque j'appuye sur OUI de la Msgbox j'ai la boite de dialogue de l'imprimante qui s'ouvre comme voulue. Je valide l'impression de 3 etiquettes par exemple, l'impression démarre et la boite de dialogue de l'imprimante réapparait aussitôt sans rien demander. Je voulais savoir si on pouvais empécher ce petit bug. Merci.

 

Vote positif 0 Vote négatif