Faire apparaître un message avant impression

Orlane -  
Mike-31 Messages postés 18405 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

2 réponses

  1. Raymond PENTIER Messages postés 58216 Date d'inscription   Statut Contributeur Dernière intervention   17 482
     
    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.
    0
  2. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    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
    -1