Macro excel pour restreindre l'impression

Résolu
bitbit -  
 bitbit -
Dans mon projet il y 4 feuil. Une macro imprimes certes la page indiquée. Je voudrais bloquer l'impression par l'icône de l'imprimante tout en autorisant l'impression de la macro.
j'ai utiliser l'événement 'BeforPrint' ça pas marché

A l'aide SVP

3 réponses

  1. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    Bonjour,

    dans ThisWorkbook :
    Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If Not printOK Then Cancel = True
    End Sub

    au début d'un module Standard, hors procédure :
    Public printOK As Boolean

    dans ton code où tu veux imprimer :
    printOK = True
    ActiveWindow.SelectedSheets.PrintOut
    printOK = False

    eric

    0
  2. bitbit
     
    Cher eric J'ai essayé ça pas marché
    Je ne sais pas pourquoi mais l'évenement BeforPrint avec cancel=true n'arrive pas à bloquer l'impression.
    0
  3. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    Sûrement que tu oublies qq chose.
    Regarde cet exemple. Tu as du code dans les modules Feuil1, ThisWorkbook et Module1 :
    https://www.cjoint.com/c/EFumIQCy0Gl

    eric
    0
    1. bitbit
       
      eric Bonsoir
      Je viens de télécharger la pièce jointe. Je vs tiendrai info. M6 et à bientôt
      0
    2. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
       
      Bonjour,

      Tu as excel 2003 je suppose.
      Essaie cette version : https://www.cjoint.com/c/EFxtGNlFCjF

      eric
      0
      1. bitbit > eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention  
         
        Je ne dirai pas que ça marche + tôt que ça marche très Bien. Merci
        0