Message avant impression

marie49 · 7 Juillet 2006

Bonjour,
Je voudrai mettre un message à l'utilisateur lorsqu'il souhaite imprimer certaines pages.
J'ai créer un userform avec deux boutons de commandes oui et non. Cet USF dont le nom est Impression est appele par :

Private Sub Workbook_BeforePrint(Cancel As Boolean)

If ActiveSheet.Name = "BASIC" Or ActiveSheet.Name = "QUALIF." Or ActiveSheet.Name = "QUALIF1." Or ActiveSheet.Name = "QUALIF2." Then
Impression.Show 0
End If

End Sub

Je ne vois pas comment faire pour activer les boutons oui et non. J'ai utilisé différentes méthodes dont voici la dernière :

Private Sub CommandButton1_Click()

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Private Sub CommandButton2_Click()
Impression.unload
End Sub

Desolee, je ne suis pas tres douee pour les userform...
Pouvez vous m'aider?
Merci
Marie

ERIC S · 7 Juillet 2006

Re : Message avant impression

Bonjour

que fait ton userform ?

si c'est juste pour afficher un message avant impression

Private Sub Workbook_BeforePrint(Cancel As Boolean)

If ActiveSheet.Name = "BASIC" Or ActiveSheet.Name = "QUALIF." Or ActiveSheet.Name = "QUALIF1." Or ActiveSheet.Name = "QUALIF2." Then
msgbox ......
End If

End Sub

ou
si demande d'info

Private Sub Workbook_BeforePrint(Cancel As Boolean)

If ActiveSheet.Name = "BASIC" Or ActiveSheet.Name = "QUALIF." Or ActiveSheet.Name = "QUALIF1." Or ActiveSheet.Name = "QUALIF2." Then
info=inputbox(...)
if info ="" then exit sub 'ou peut-etre cancel=true
......
End If

End Sub

A+

marie49 · 7 Juillet 2006

Bonjour,
En fait je mets un message et je demande à l'utilisateur si il veut continuer de lancer l'impression ou si il arrête. Ceci avec des boutons oui ou non.
Je ne sais pas trop utiliser les msgbox mais je vais voir si cel apeut m'aider.
Merci
Marie

ERIC S · 7 Juillet 2006

Re : Message avant impression

re

info=msgbox ("Continuer l'impression ?",vbyesno)
if info=vbno then exit sub

à la place du exit sub il faut peut-être mettre cancel=true qui devrait annuler l'ordre d'impression

A+

ERIC S · 7 Juillet 2006

Re : Message avant impression

re

au fait, 49 c'est pas le Tarn

c'est ta pointure ?

Bienvenue sur le forum

marie49 · 7 Juillet 2006

Merci pour la remarque... ce n'est meme pas ma pointure ni mon age...
mais il faut bien un pseudo

Alors revenons a nos moutons : j'ai utilise msgbox et ca marche.

Merci de m'avoir aider malgre ...
A+
Marie

ERIC S · 7 Juillet 2006

Re : Message avant impression

re

A bientôt peut-être

on est quelques fois une peu "taquins" sur le forum, pour y mettre un peu d'âme en plus des réponses sérieuses qui sont faites.

A+

Message avant impression

marie49

XLDnaute Occasionnel

ERIC S

XLDnaute Barbatruc

marie49

XLDnaute Occasionnel

ERIC S

XLDnaute Barbatruc

ERIC S

XLDnaute Barbatruc

marie49

XLDnaute Occasionnel

ERIC S

XLDnaute Barbatruc

Discussions similaires