XL 2010 Frame caption / Printform

[ValentinLF]

Bonjour,

J'ai un petit soucis avec mon userform, celui-ci possède deux frames. Lorsque j'affiche le userform, je vois correctement les captions de chaque frame mais lorsque je veux imprimer avec :
Userform.PrintForm
les captions disparaissent...

Pourquoi ? 😵

Si quelqu'un à une idée ? 🙂

 

[Staple1600]

Bonsoir à tous

Bonjour,
Si quelqu'un à une idée ? 🙂

Une idée?
Oui, que tu téléverses un fichier Excel exemple avec l'userform afin que l'on voit si le phénomène se reproduit sur nos PC.

 

[ValentinLF]

Je ne sais pas s'il est indispensable que je téléverse un fichier sachant qu'il s'agit tout simplement d'un Userform muni d'un frame :

Private Sub Userform_Initialize()
Me.Frame1.Caption = "Test"
Me.Frame1.BorderStyle = fmBorderStyleSingle
End sub

Private Sub CommandButton1_Click()
Userform.PrintForm
End Sub

 

[Staple1600]

[ironie d'avant souper]
Je ne sais pas si il est indispensable que je perde du temps à créer un fichier y insérer un userform puis dans celui-ci insérer une frame et un commandbutton alors que tout cela existe déjà sur ton disque dur🙄
[/ironie d'avant souper]

NB: Je confirme le phénomène sur mon PC.

 

[Staple1600]

Aprés quelques recherches sur le net, voici une solution
Dans un module standard

Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Public Const VK_SNAPSHOT = 44
Public Const VK_LMENU = 164
Public Const KEYEVENTF_KEYUP = 2
Public Const KEYEVENTF_EXTENDEDKEY = 1

Dans le code de l'userform

Private Sub CommandButton1_Click()
DoEvents
keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY, 0
keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY, 0
keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY + _
KEYEVENTF_KEYUP, 0
keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY + _
KEYEVENTF_KEYUP, 0
DoEvents
Workbooks.Add
Application.Wait Now + TimeValue("00:00:01")
ActiveSheet.PasteSpecial Format:="Bitmap", Link:=False, DisplayAsIcon:=False
ActiveSheet.Range("A1").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWorkbook.Close False
End Sub

Test OK sur XL 2013.

PS: Oui je sais , je nage en pleine contradiction 😉

 

[ValentinLF]

Merci pour ton aide, je vais essayer de suite sur 2010 !

Désolé de t'avoir fait perdre cette précieuse minute pour créer un userform, un frame, un bouton et copier/coller mon code 😀

..Excès d'ironie ^^ Non la vérité c'est que l'on m'a bien trop souvent dit que le fichier était très rarement intéressant mais que le code lui est utile ! Donc j'évite le plus possible de transférer des fichiers à tout va qui n'apporte que très peu d'utilité 🙂

Je te remercie en tout cas pour tes recherches !