Imprimer un treeview

Version imprimable

13/02/2020, 08h50
merymad69

Imprimer un treeview

Bonjour,

Suite à un autre post, j'ai crée un userform avec un treeview.(https://www.developpez.net/forums/d2...aliser-texbox/) voir le premier fichier partagé par Jacques.

Je souhaiterai imprimer ce treeview mais je séche. J'ai essayé https://access.developpez.com/faq/?p...#printTreeview mais je n'ai pas la bonne référence (VB6).

Quelqu'un aurait la solution ?

2 pièce(s) jointe(s)

Bonjour,

J'ai trouvé l'impression d'un 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
Private Sub B_imprime_Click()
  'BOITE DE DIALOGUE POUR LA DEMANDE D'IMPRESSION
  Dim IPVM
  'IPVM = MsgBox("AVEZ-VOUS UNE IMPRIMANTE DE CONNECTEE ?", vbYesNo + vbDefaultButton2 + vbQuestion, " DEMANDE D'IMPPRESSION")
  'If IPVM = vbNo Then Exit Sub
  IPVM = vbYes
  If IPVM = vbYes Then
        Application.ScreenUpdating = False
        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")
        With ActiveSheet
            .PasteSpecial Format:="Bitmap", Link:=False, DisplayAsIcon:=False
            .Range("A1").Activate
            .PageSetup.Orientation = xlLandscape
            .PageSetup.LeftMargin = Application.InchesToPoints(0)
            .PageSetup.RightMargin = Application.InchesToPoints(0)
            .PageSetup.TopMargin = Application.InchesToPoints(0.3)
            .PageSetup.BottomMargin = Application.InchesToPoints(0)
            .PageSetup.HeaderMargin = Application.InchesToPoints(0)
            .PageSetup.FooterMargin = Application.InchesToPoints(0)
            .PageSetup.PrintHeadings = False
            .PageSetup.PrintGridlines = False
            .PageSetup.PrintComments = xlPrintNoComments
            .PageSetup.CenterHorizontally = False
            .PageSetup.CenterVertically = False
            .PageSetup.Draft = False
            .PageSetup.PaperSize = xlPaperA4
            .PageSetup.Order = xlDownThenOver
            .PageSetup.BlackAndWhite = False
            .PageSetup.Zoom = 60  ' à régler
        End With
        ActiveWindow.SelectedSheets.PrintOut Copies:=1
        ActiveWorkbook.Close False
       ' UserForm1.CommandButton1.SetFocus
        Application.ScreenUpdating = True
  End If
End Sub

Dans un module:

Code:

1
2
3
4
5
6
7
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

Il y a ça qui crée une arbo des répertoires dans une feuille mais sans les fichiers.
C'est imprimable.

Boisgontier

13/02/2020, 13h28
merymad69

Aprés éssai

Merci pour ta réponse, j'utilise déjà ce code pour une userform complète mais dans mon cas je souhaiterai n'imprimer que le treeview de ton exemple, et pas la userform complète....
L'idéal serait un rendu comme une impression de la commande DOS. Car si j'imprime l'image du treeview (si c'est possible), je peut ne pas avoir l'entièreté de l’arborescence ...

J'avais pas bien lu la fin de ton message je regarde si possible ....

Je n'arrive pas à intégrer le code de ton deuxième fichier dans mon projet ....
La solution d'imprimer le contrôle serait le plus propre et le plus adapté, mais cela me semble compliqué à faire ....
14/02/2020, 13h18
merymad69
Je viens d'essayer de passer par la création d'un fichier texte :
Code:

1 2 3 4 5 Dim retval Dim vraiplace as string 'vraiplace étant l'emplacement de ma sélection dans le treeview retval = Shell("cmd /c tree " & vraiplace & " /a >list.txt", vbMaximizedFocus)
Le fichier list.txt est bien créé avec les bonnes infos, dont le dossier de départ, mais se trouve toujours dans le dossier parent ! De fait je n'arrive pas à l'imprimer puisque je le trouve pas ....:(

Comment faire pour créer le fichier txt dans le bon répertoire?
14/02/2020, 14h32
Menhir

Citation:

Envoyé par merymad69

Comment faire pour créer le fichier txt dans le bon répertoire?

Rajouter le chemin souhaité devant le list.txt.
Par exemple > C:\MonChemin\list.txt.

Il serait bienvenu aussi de mettre un espace entre ">" et "list".

Avec les commentaires j'ai adapté et codé ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
On Error GoTo fin
If Me.TextBox1.Value = "" Then GoTo fin
Dim txt As String
Dim retval
retval = Shell("cmd /c tree " & vraiplace & " /a > " & vraiplace & "\list.txt", vbMaximizedFocus)
'UserForm9.Show
Do
   DoEvents
Loop While Dir(vraiplace & "\list.txt") = ""  'obligatoire sinon cela va trop vite et retourne une erreur...
 
Shell "notepad.exe /P" & " " & vraiplace & "\list.txt", 1
Application.Wait Time + TimeSerial(0, 0, 5)  'obligatoire sinon cela va trop vite et retourne une erreur...
txt = vraiplace & "\list.txt"
If txt = "" Then
   MsgBox "Le fichier n'existe pas"
Else
    Kill vraiplace & "\list.txt"
    MsgBox "Le fichier tampon est effacé"
End If
 
fin:

Merci pour votre aide.

14/02/2020, 16h56
Menhir
Citation:
Envoyé par merymad69

Code:

1 2 txt = vraiplace & "\list.txt" If txt = "" Then
Pour que ceci fonctionne correctement, il faudra utiliser un Dir() dans la première ligne.
17/02/2020, 11h26
merymad69

Merci pour le complément d'info.

J'ai voulu lancer ma macro ce matin et je m’aperçois que le fichier txt créé n'est pas rempli entièrement ... une idée du PB ?
17/02/2020, 12h28
Menhir

Sans le On Error en début de code, sans doute aurais-tu plus d'informations concernant ce problème.
18/02/2020, 14h35
merymad69

Bonjour,

Sans le On Error, rien ne se passe le prog se déroule sans erreur d'affichée.

Le fichier text est bien créé et est complet si on l'ouvre ultérieurement avec le kill désactivé.

Par contre si j'active le Kill, voilà le déroulé :

Le fichier list.txt est créé
Notepad ouvre le fichier list.txt mais il n'y apparait que les 4 premières lignes du fichier !
L'impression du fichier list.txt se lance mais qu'avec le contenu vu précédemment soit les 4 premières lignes
Notepad se ferme
Le Kill efface le fichier list.txt

:(
18/02/2020, 15h31
Menhir

Etant donné que Notepad est une application externe à Excel, ta macro se poursuit en parallèle de l'exécution de l'impression.
Peut-être que le Kill intervient trop tôt.

Essaye de faire fonctionner ton code en pas-à-pas en attendant que l'impression soit terminée avant d'aller au delà du Wait.
Si ça fonctionne, il faudra peut-être revoir ta temporisation à la hausse.
18/02/2020, 15h40
merymad69

Tu as raison, cela fonctionne au pas à pas ....

Par contre quand je change la tempo

Code:

Application.Wait Time + TimeSerial(0, 0, 5)

Cela ne change pas le pb mais me temporise après l'impression ...

Comment faire une autre tempo ? 5 s devraient être suffisant placé au bon endroit ...

J'ai trouvé ! Il faut mettre la ligne de tempo avant le notepad, c'est lui qui s'ouvre trop vite pour impression ....

Merci pour vos réponses.