Print textbox values

[Hole-In-One]

This will print all textboxes on the form:

 Private Sub printboxes(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)
    For Each ctl In Me.Controls
           If TypeOf ctl Is TextBox Then
                   Dim txt As TextBox = ctl
                   e.Graphics.DrawString(txt.Text, New Font("Arial", 9, FontStyle.Bold), Brushes.Blue, txt.Left, txt.Top)
             End If
          Next
end sub

Very Generic, but should give you the idea!