Faire apparaître un message avant impression
Fermé
Orlane
-
8 mars 2011 à 17:24
Mike-31 Messages postés 18188 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 mars 2023 - 9 mars 2011 à 10:09
Mike-31 Messages postés 18188 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 mars 2023 - 9 mars 2011 à 10:09
A voir également:
- Faire apparaître un message avant impression
- Spouleur d'impression - Guide
- Apparaitre hors ligne whatsapp - Guide
- Apparaitre hors ligne instagram - Guide
- Dans cette présentation, sarah avait encadré directement le titre de certaines diapositives avant d'automatiser cette mise en forme pour tout le document. sur quelles diapositives avait-elle encadré directement le titre ? ✓ - Forum Bureautique
- Recuperer message whatsapp - Guide
2 réponses
Raymond PENTIER
Messages postés
57157
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
28 mars 2023
17 156
9 mars 2011 à 03:02
9 mars 2011 à 03:02
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.
Mike-31
Messages postés
18188
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
13 mars 2023
5 041
9 mars 2011 à 10:09
9 mars 2011 à 10:09
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