سؤال بالtree view مجنني

Option Explicit

Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

Private Sub PrintTree()
Dim TreeDC As Long
TreeDC = GetDC(TreeView1.hwnd)
Printer.Print ""
BitBlt Printer.hdc, 0, 0, TreeView1.Width / 15, TreeView1.Height / 15, TreeDC, 0, 0, vbSrcCopy
Printer.EndDoc

End Sub

بشكرك كثير على مساعدتك لي وبارك الله فيك والله ما قصرت

والله يوفقك