Imprimer l'imgae afficher dans un Userform

[bloomby]

Bonjour à tous,

à l'aide d'un userform j'affiche différente image dans (image1) du userform
j'aimerais imprimer l'image qui est actuellement afficher.

Pour les affichers j'utilise le code suivant

Private Sub OnePages_Click()
  With Worksheets("OnePages")
    Set Plage = .Range("OnePages")
  End With
  Plage.Copy
  Set Image1.Picture = PastePicture
End Sub

Cela est un exemple, mais ce n'est pas toujours OnePages qui est afficher
(J'ai aussi des button pour afficher OnePages2,3,4...) c'est pour cette raison que je veux imprimer se qui est présentement afficher dans l'image du userform

merci
bloomby

 

[klin89]

Re : Imprimer l'imgae afficher dans un Userform

Bonjour à tous,
Bonjour bloomby,

Je ne sais pas si cela répond à ta demande, mais je te joins ce fichier trouvé sur le forum.

Impossible de remettre la main sur le fil concerné, que l'auteur me pardonne 😱

Klin89

 

[bloomby]

Re : Imprimer l'imgae afficher dans un Userform

Bonjour Klin89,

je fais des tests et je te confirme si cela fonctionne

merci
Bloomby

 

[vbacrumble]

Re : Imprimer l'imgae afficher dans un Userform

Bonsoir


Klin89:

Ce ne serait pas ce fil par hasard ?

https://www.excel-downloads.com/threads/impression-image-dun-userform.95945/