Listview vide à l'impression.

Bonjour

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

je voudrais imprimer le formulaire sur click du bouton.

Code:

---

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...:calim2:

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


merci d'avance pour vos lumieres. :D

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

Citation:

---

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

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 :D

Bonjour,
Que veux-tu faire exactement ?

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:

---

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:

---

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

Citation:

---

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

Merci,

vous etes trop fort :D
:ccool: