Message box avant impression

[axel307]

Bonjour,

je souhaite qu'un message apparaisse avant l'impression d'une etiquette.
Du type "voici la référence que vous allez imprimer : 15 25 357", "oui" ouverture de la boite de dialogue imprimante, "non" retour à l'étiquette.
je mets un fichier joint, merci de votre aide.

 

[PMO2]

Re : Message box avant impression

Bonjour,

Essayez le code suivant dans ThisWorbook

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

 

[axel307]

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.

 

[Staple1600]

Re : Message box avant impression

Bonjour à tous

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

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

 

[axel307]

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?

 

[Etienne2323]

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.

Application.Dialogs(xlDialogPrint).Show

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

Cordialement,

Étienne

 

[Staple1600]

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

 

[axel307]

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.

 

[Staple1600]

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)

 

[axel307]

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?

 

[axel307]

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.