[VBA][Excel] Userform et impression

Version imprimable

Bonjour, j'ai créé un userform avec ce code rattaché au bouton "IMPRIME"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Private Sub Imprime_Click()
 Dim Sh As Shape
  keybd_event vbKeySnapshot, 1, 0&, 0&
  DoEvents
  Application.ScreenUpdating = False
  With Feuil1
    'par précaution, pour faire le ménage
    For Each Sh In .Shapes: Sh.Delete: Next Sh
    .Paste .Range("A1")
    'obligatoire avant un PrintPreview, mais pas avant un PrintOut
    Me.Hide
    .PrintOut
    .Shapes(1).Delete
    'userform à nouveau visible
    Me.Show
  End With
  Application.ScreenUpdating = True
End Sub

Je souhaiterai que lors de l'impression, le bouton IMPRIME n'apparaisse pas.
Est-ce possible.

21/09/2006, 11h58
SilkyRoad

bonjour

cette démo d'Yvan Moala pourra certainement t'aider

http://www.xcelfiles.com/VBA_Prt3.html

michel
21/09/2006, 13h53
mulanzia2003

Cela est très interressant mais cela ne répond pas à mon besoin.

Je souhaite imprimer mon UserForm à l'aide d'un bouton, avec comme option pas d'impression des boutons de commande.

Si vous avez d'autres idées, merci !!!

effectivement, je n'avais pas compris ta question:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Imprime_Click()
 Dim Sh As Shape
 
  Imprime.Visible = False
  DoEvents
 
  keybd_event vbKeySnapshot, 1, 0&, 0&
  DoEvents
  '
  '
  '...
  Imprime.Visible = True
 
End Sub

michel

En mettant ce code , cela ne fonctionne pas.
L'impression m'affiche le bouton IMPRIME alors qu'il disparait un temps.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Private Sub IMPRIME_Click()
Dim Sh As Shape
  IMPRIME.Visible = False
 
  keybd_event vbKeySnapshot, 1, 0&, 0&
  DoEvents
  Application.ScreenUpdating = False
  With Feuil5
    'par précaution, pour faire le ménage
    For Each Sh In .Shapes: Sh.Delete: Next Sh
    .Paste .Range("A1")
    'obligatoire avant un PrintPreview, mais pas avant un PrintOut
    Me.Hide
    .PrintOut
    .Shapes(1).Delete
    'userform à nouveau visible
    Me.Show
  End With
 
  IMPRIME.Visible = True
  Application.ScreenUpdating = True
End Sub

21/09/2006, 16h17
SilkyRoad

Relit mon dernier message.

tu as oublié un DoEvents ...
21/09/2006, 18h41
mulanzia2003

oui exact, milles excuses !!!
J'essayerai demain matin au boulot.
Je tiens au courant.
22/09/2006, 07h31
mulanzia2003

OK c'est bon cela fonctionne !!!
Merci beaucoup.