Discussion :

[ahmet]

Bonjour

j'ai créé un bouton "imprimer" dans le form.

je voudrais imprimer le formulaire sur click du bouton.

Code :

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

1
2
3
4
5
Private Sub BoutonPrint_Click()
 
Userform1.PrintForm
 
End Sub

ca marche presque bien... j'ai un listview dans le formulaire dans lequel je charge des données... à l'impression mon listview est vide!!! pourtant à l'ecran j'ai des valeurs...

je ne sais pas quoi faire et j'ai vraiment besoin d'un bouton impression pour ce formulaire...


merci d'avance pour vos lumieres.

[Philippe Tulliez]

Bonjour,
Je viens de faire un test avec un listview et j'ai le même problème que toi. Un autre test sur un USERFORM utilisant d'autres contrôles ne m'a pas posé de problème.
J'avoue n'avoir aucune expérience particulière sur la méthode PrintForm ne l'ayant jamais utilisé auparavant.
Pour ma part j'utilise un outil de capture d'écran.
Je t'invite à lire le document suivant http://silkyroad.developpez.com/VBA/UserForm/ où tu trouveras la remarque suivante

III-E. Imprimer un UserForm
Remarque préalable:
Ce chapitre présente quelques solutions d'impression, mais un UserForm n'est pas bien adapté pour les éditions (consommation d'encre importante, long temps d'impression, rendu sur le papier ne correspondant pas toujours à ce qui est vu à l'écran...)
Plus généralement, il faut toujours avoir une réflexion sur l'utilisation du papier pour ne pas le gaspiller.

Bonne journée

[ahmet]

merci corona pour ton aide,

je voudrais contourner le probleme...

quel est le meilleur control pour gerer un tableau de données dans un userform? le listview n'est peut etre pas approprié pour mon besoin.

merci

[Philippe Tulliez]

Bonjour,
Que veux-tu faire exactement ?

[Didier Gonard]

Bonjour,

voici une solution qui est OK à adapter.

J'ai rajouté un bouton sur le classeur de Démo du tuto de Silkyroad suivant :

Utiliser le contrôle ListView en VBA Excel

cf § 3 téléchargement

Le code du bouton (les PJ n'étant pas forcément pérenne):

Code :

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

1
2
3
4
5
6
7
8
9
Option Explicit
 
'*****************************
'nécéssite activer la reference Microsoft Visual Basic for applications extensibilty 5.3
'*****************************
 
Private Declare Sub keybd_event Lib "user32" ( _
        ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, _
        ByVal dwExtraInfo As Long)

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
17
18
19
20
21
22
23
24
25
26
27
Private Sub CommandButton2_Click()
Dim Ws As Worksheet
Dim Newhour As Variant
Dim NewMinute As Variant
Dim NewSecond As Variant
Dim waitTime As Variant
 
    'Copie d'écran de la forme active
    keybd_event vbKeySnapshot, 1, 0&, 0&
    DoEvents
 
    'Ajoute une feuille pour coller l'image de la forme
    Set Ws = Sheets.Add
     Newhour = Hour(Now())
     NewMinute = Minute(Now())
     NewSecond = Second(Now()) + 2
     waitTime = TimeSerial(Newhour, NewMinute, NewSecond)
      Application.Wait waitTime
    Ws.Paste
    Application.CutCopyMode = False
    'impression centrée dans la page
    With Ws
        .PageSetup.CenterHorizontally = True
        .PageSetup.CenterVertically = True
        .PrintOut
    End With
End Sub

inspiré de ceci : Imprimer toutes les pages d'un USF Multipages

Attention : Si vous employez des utilitaires de copie d’écran, ceux-ci peuvent interférer avec le système Windows et entraîneront un plantage => les désactiver si c’est le cas…

le fichier joint est en .xls, mais fait sous 2007.

cordialement,

Didier

[ahmet]

Merci,

vous etes trop fort