Faire apparaître un message avant impression
Orlane
-
Mike-31 Messages postés 19572 Date d'inscription Statut Contributeur Dernière intervention -
Mike-31 Messages postés 19572 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je voudrais savoir s'il est possible en Word 2003 de faire apparaître un message à l'écran quand on lance l'impression.
L'objectif est de rappeler à l'utilisateur de faire quelque choses avant d'imprimer. Par exemple: "Avez-vous bien indiqué la date?" + bouton OK et l'impression commence.
D'avance merci !
Orlane
Je voudrais savoir s'il est possible en Word 2003 de faire apparaître un message à l'écran quand on lance l'impression.
L'objectif est de rappeler à l'utilisateur de faire quelque choses avant d'imprimer. Par exemple: "Avez-vous bien indiqué la date?" + bouton OK et l'impression commence.
D'avance merci !
Orlane
A voir également:
- Faire apparaître un message avant impression
- Spouleur d'impression - Guide
- Impression livret a5 - Guide
- Comment recuperer un message supprimé sur whatsapp - Guide
- Epingler un message whatsapp - Accueil - Messagerie instantanée
- Apparaitre hors ligne instagram - Guide
2 réponses
Peut-être : Il faudrait lancer l'impression grâce à une macro, sans utiliser les boutons des barres d'outils.
Et dans cette macro tu insères l'affichage de ton message.
Et dans cette macro tu insères l'affichage de ton message.
Salut,
Mon ami Raymond à tout à fait raison.
Word n'est pas ma tasse de thé mais il suffit de créer un bouton activeX sur la feuille word
faire Format/Police cocher Masqué pour le rendre invisible à l'impression
Ensuite Format/Contrôle/onglet Habillage et cocher Rapproché pour le positionner librement sur la page
Clic droit sur le bouton/Visualiser le code et coller ce code
Private Sub CommandButton1_Click()
If MsgBox(Prompt:="Si oui cliquez sur Oui pour imprimer(" & vbCrLf & vbCrLf _
& "Sur Non pour revenir au document", Buttons:=vbYesNo + vbQuestion, _
Title:="Avez-vous bien indiqué la date ?") = vbNo Then
Exit Sub
Else
ActiveDocument.PrintOut
End If
End Sub
Mon ami Raymond à tout à fait raison.
Word n'est pas ma tasse de thé mais il suffit de créer un bouton activeX sur la feuille word
faire Format/Police cocher Masqué pour le rendre invisible à l'impression
Ensuite Format/Contrôle/onglet Habillage et cocher Rapproché pour le positionner librement sur la page
Clic droit sur le bouton/Visualiser le code et coller ce code
Private Sub CommandButton1_Click()
If MsgBox(Prompt:="Si oui cliquez sur Oui pour imprimer(" & vbCrLf & vbCrLf _
& "Sur Non pour revenir au document", Buttons:=vbYesNo + vbQuestion, _
Title:="Avez-vous bien indiqué la date ?") = vbNo Then
Exit Sub
Else
ActiveDocument.PrintOut
End If
End Sub
