Discussion :

[Darkzombie]

Bonjour à tous !

Voilà la situation :
Un formulaire en mode "un enregistrement par page" contient actuellement plus ou moins 250 enregistrements. J'ai ajouté un bouton dans ce formulaire permettant d'afficher l'aperçu d'un état contenant les informations de l'enregistrement actuellement affichée dans le formulaire.

Ce programme est utilisé par des débutants, et certains se trompe en lancant l'impression du formulaire (via le menu "Fichier" -> "Imprimer") au lieu de cliquer sur le bouton pour ouvrir l'état et ensuite utiliser le menu "Fichier" puis "Imprimer"... Ce qui fait qu'on se retrouve avec une impression de 250 pages au lieu de l'unique page d'état.

Ma question est donc la suivante :

Comment interdire l'impression dans un formulaire ?
Si ce n'est pas possible, comment faire pour cacher les menus d'impression (Fichier -> Imprimer) temporairement pour les faire réapparaître ensuite lors de l'affichage de l'état ?

Merci d'avance pour votre aide !

[LedZeppII]

Bonjour,

je peux juste te montrer comment je désactive l'option Imprimer.
Dans vba il faut cocher la référence Microsoft Office x.x Object library

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Function ActiveDesactiveItemMenu(ctlId As Long, ctlActif As Boolean)
Dim cmdBar As Office.CommandBar
Dim cmdCtl As Office.CommandBarControl
Dim i As Long
 
For Each cmdBar In Application.CommandBars
    For Each cmdCtl In cmdBar.Controls
        If cmdCtl.Type = msoControlPopup Then
           For i = 1 To cmdCtl.Controls.Count
               If cmdCtl.Controls(i).Id = ctlId Then cmdCtl.Controls(i).Enabled = ctlActif: Exit For
           Next
        End If
        If cmdCtl.Id = ctlId Then cmdCtl.Enabled = ctlActif: Exit For
    Next
Next
End Function

Pour désactiver le menu imprimer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveDesactiveItemMenu 4, False

Pour le réactiver

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveDesactiveItemMenu 4, True

Tu l'aura deviné, 4 correspond à Fichier->Imprimer.

Bon courage

[Darkzombie]

Merci beaucoup !!!

Ca marche superbement, ca fait même mieux que ce que j'espérais en grisant simplement l'option "Imprimer" du menu !!!

J'avais trouvé une solution assez lourde qui consistait à retirer les menus et à les recréer via des macros mais ta solution est géniale !

Merci encore !!