Loop through Treeview and print...[Resolved]

[Static]

For X = 1 To frmMain.tvInstalled.Nodes.Count
Printer.Print frmMain.tvInstalled.Nodes(X).Text
DoEvents
Next

this works.. sort of.

What I need is to print the nodes in order with an appropriate indent..

Looping the above way does not print the nodes out the same as you see them

loops through each "level" instead of top to bottom...

[Hack]

Is this for documentation purposes? If so, then why not just take a screen shot and print that?

(I ask this question because I had to do this once for a project.)

[Static]

Screenshot doesnt capture all items..

[Static]

Got it.. found this little bit of code on the web
tweaked it for printing...

Public Sub PrintTree(objNode As Node)
    Static Indent As Integer
    Dim objSiblingNode As Node
    
    Set objSiblingNode = objNode
    
    Do
        Printer.CurrentX = Indent
        Printer.Print objSiblingNode.Text
        If Not objSiblingNode.Child Is Nothing Then
            Indent = Indent + 500
            Call PrintTree(objSiblingNode.Child)
        End If
        Set objSiblingNode = objSiblingNode.Next
    Loop While Not objSiblingNode Is Nothing
    Indent = Indent - 500
    If Indent < 0 Then Indent = 0
End Sub
 
Private Sub Usage()
    Call PrintTree(Treeview1.Nodes(0))
End Sub