Discussion :

[merymad69]

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 ?

[boisgontierjacques]

Bonjour,

J'ai trouvé l'impression d'un Userform

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

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

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

[merymad69]

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

[merymad69]

Je viens d'essayer de passer par la création d'un fichier texte :

Code :

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

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?

[Menhir]

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".

[merymad69]

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

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