OVH Cloud OVH Cloud

FENÊTRE PERSONNALISÉE - INFO AVANT IMPRESSION

4 réponses
Avatar
C. Ducharme
Est-ce que quelqu'un sait comment faire appara=EEtre une=20
fen=EAtre personnalis=E9e tout juste avant l'impression d'un=20
document XLS ?

Par exemple : au moment de l'impression, la fen=EAtre=20
appara=EEt et indique =E0 l'usager : N'OUBLIEZ PAS D'INS=C9RER=20
DU PAPIER EN-T=CATE DANS L'IMPRIMANTE

Merci de votre aide !

C. Ducharme
cducharme@sympatico.ca

4 réponses

Avatar
FxM
Bonsoir,

Il existe un évènement workbook_beforeprint où tu peux insérer des
commandes à faire avant l'impression. Ca devrait donner des choses comme
suit :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
MsgBox "N'OUBLIEZ PAS D'INSÉRER DU PAPIER EN-TÊTE DANS L'IMPRIMANTE"
End Sub

@+
FxM





C. Ducharme wrote:
Est-ce que quelqu'un sait comment faire apparaître une
fenêtre personnalisée tout juste avant l'impression d'un
document XLS ?

Par exemple : au moment de l'impression, la fenêtre
apparaît et indique à l'usager : N'OUBLIEZ PAS D'INSÉRER
DU PAPIER EN-TÊTE DANS L'IMPRIMANTE

Merci de votre aide !

C. Ducharme



Avatar
sabatier
tu dois avoir dans le module This Workbook de ton classeur (à chercher
dans VBE) un évènement BeforePrint
tu y mets une proc du style :
Msgbox "bande de charlots, faudrait voir à mettre du papier dans
l'imprimante au lieu d'en faire des fusées et de vous les envoyer à
travers le bureau"
ou dans un style plus stalagienne :
Msgbox "achtung! la imbrimante n'a bas de babier mit einem Kopf ;
démerdez-fous pour en charcher, schnell und restez gruppiert dans
l'aktiooooooon"

jps

"C. Ducharme" wrote:

Est-ce que quelqu'un sait comment faire apparaître une
fenêtre personnalisée tout juste avant l'impression d'un
document XLS ?

Par exemple : au moment de l'impression, la fenêtre
apparaît et indique à l'usager : N'OUBLIEZ PAS D'INSÉRER
DU PAPIER EN-TÊTE DANS L'IMPRIMANTE

Merci de votre aide !

C. Ducharme



Avatar
sabatier
oups pardon françois-xavier
j'avais pas vu que tu étais d'astreinte ce soir pendant que d'autres sont
partis à la neige comme des oeufs..
jps

FxM wrote:

Bonsoir,

Il existe un évènement workbook_beforeprint où tu peux insérer des
commandes à faire avant l'impression. Ca devrait donner des choses comme
suit :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
MsgBox "N'OUBLIEZ PAS D'INSÉRER DU PAPIER EN-TÊTE DANS L'IMPRIMANTE"
End Sub

@+
FxM

C. Ducharme wrote:
Est-ce que quelqu'un sait comment faire apparaître une
fenêtre personnalisée tout juste avant l'impression d'un
document XLS ?

Par exemple : au moment de l'impression, la fenêtre
apparaît et indique à l'usager : N'OUBLIEZ PAS D'INSÉRER
DU PAPIER EN-TÊTE DANS L'IMPRIMANTE

Merci de votre aide !

C. Ducharme





Avatar
FxM
j'aime bien ta version, elle a du charme ;o)

@+
FxM


sabatier wrote:

oups pardon françois-xavier
j'avais pas vu que tu étais d'astreinte ce soir pendant que d'autres sont
partis à la neige comme des oeufs..
jps

FxM wrote:


Bonsoir,

Il existe un évènement workbook_beforeprint où tu peux insérer des
commandes à faire avant l'impression. Ca devrait donner des choses comme
suit :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
MsgBox "N'OUBLIEZ PAS D'INSÉRER DU PAPIER EN-TÊTE DANS L'IMPRIMANTE"
End Sub

@+
FxM

C. Ducharme wrote:

Est-ce que quelqu'un sait comment faire apparaître une
fenêtre personnalisée tout juste avant l'impression d'un
document XLS ?

Par exemple : au moment de l'impression, la fenêtre
apparaît et indique à l'usager : N'OUBLIEZ PAS D'INSÉRER
DU PAPIER EN-TÊTE DANS L'IMPRIMANTE

Merci de votre aide !

C. Ducharme