Visual Basic

Private Sub Button1_Click(...)
    ' Passing in 0 denotes the root of the tree.
    ' 1 would represent the 1st level of children, or children of the root.
    ProcessNodesList( TreeView1.Nodes, 0 )
End Sub
.
.  ' Warning!  Untested code ahead!
.
Private Sub ProcessNodesList(ByRef nodeList As TreeNodeCollection, ByVal level As Integer)
Dim currentNode As TreeNode
     For Each currentNode In nodeList
        If currentNode.Checked = True Then
            Select Case level
                Case 0
                    ' Put whatever formatting you want for level 0
                Case 1
                    ' Put whatever formatting you want for level 1
                Case 2 To 3
                    ' Put whatever formatting you want for levels 2 and 3
                Case 4
                    ' I hop eyou get the idea by now...
            End Select
        End If
 
        If currentNode.Nodes.Count > 0 Then
            ' There are children present.  Call myself with the new set
            ' of Nodes and tell myself that this is the next level down
            ProcessNodesList( currentNode.Nodes, level + 1 )
        End If
   Next
End Sub

    Dim ActivePageNumber As Short = 1<br />
    Dim pageCount As Short = 0<br />
    Dim ItemCountOnPerPage As Integer = 30<br />
    Dim dtSource As DataTable<br />
    Dim index As Short<br />
    Private Sub btnPrintDataGrid_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrintDataGrid.Click<br />
        ActivePageNumber = 1<br />
        pageCount = Math.Ceiling(dtSource.Rows.Count / ItemCountOnPerPage)<br />
        PrintDocument1.Print()<br />
    End Sub<br />
<br />
<br />
    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage<br />
        If Not ActivePageNumber > pageCount Then<br />
            PrintDataTable(e.Graphics)<br />
            ActivePageNumber += 1<br />
            e.HasMorePages = True<br />
        Else<br />
            e.HasMorePages = False<br />
        End If<br />
    End Sub<br />
<br />
    Public Sub PrintDataTable(ByVal e As Graphics)<br />
        Dim x, y As Short<br />
        Dim fArial As New Font("Arial", 8)<br />
        x = 20<br />
        y = 20<br />
        Dim cci As Short = index<br />
        Do While (cci <> ItemCountOnPerPage Or index <> dtSource.Rows.Count - 1)<br />
            For columnIndex As Short = 0 To dtSource.Columns.Count - 1<br />
                e.DrawString(dtSource.Rows(index)(columnIndex), fArial, New SolidBrush(Color.Black), x, y)<br />
                x += 30 '  set this to column width<br />
            Next<br />
            y += fArial.Height<br />
            cci += 1<br />
            index += 1<br />
        Loop<br />
    End Sub