[XL-2010] Imprimer userform avec controle listview

Imprimer userform avec controle listview

Bonjou tous le monde et bonne fête et bonne année 2015
je cherche un code qui me permet d'imprimer un USF contenant un listview
j'ai utilisé : Me.PrintForm mais ca m'imprime le USF avec listview vide
bonne journée et merci d'avance

Bonjour,

Ce n'est apparemment pas possible. Regarde la solution exposée ici :

http://www.developpez.net/forums/d81...-d-e-listview/

Bonne fin d'année.

bonjour Monsieur et merci pour le lien
est-il possible de développer un code qui agrandie le USF en plein écran et ensuite imprimer écran
Que pensez vous SVP

Pas de monsieur entre nous.
Voici une solution qui copie une image de l'userform et l'imprime en mode paysage sur la largeur de la feuille. Elle se déclenche sur un double clic sur l'userform.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
'--------- Procédure à placer dans le module objet du UserForm ----------------
 
Private Declare Sub keybd_event Lib "user32" _
(ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)
 
Private Const KEYEVENTF_KEYUP = &H2
Private Const KEYEVENTF_EXTENDEDKEY = &H1
Private Const VK_SNAPSHOT = &H2C
Private Const VK_MENU = &H12
Private Const VK_LMENU = &HA4
 
Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Dim wshTemp As Worksheet, Img
    DoEvents
 
    ' Simulate pressing ALT+Printscreen to copy the form window (=picture) to
    ' the clipboard
    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
 
    ' Add a worksheet named Temp
    ThisWorkbook.Worksheets.Add
    ActiveSheet.Name = "Temp"
    Set wshTemp = ThisWorkbook.Worksheets("Temp")
 
    ' Paste the picture, set print orientation to landscape en print it
    With wshTemp
     .Paste
         With .PageSetup
            .Orientation = xlLandscape
            ActiveWindow.DisplayGridlines = False
            ActiveSheet.Shapes.Range(1).Select
            Selection.ShapeRange.ScaleWidth ((297 / 25.4) * 72 - (.LeftMargin + .RightMargin)) / Img.Width, msoFalse, msoScaleFromTopLeft
        End With
     .PrintOut
    End With
 
    ' Delete the worksheet Temp and suppress the not-saved Warning.
    Application.DisplayAlerts = False
    ThisWorkbook.Worksheets("Temp").Delete
    Application.DisplayAlerts = True
End Sub