Private Sub Button1_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button1.Click
    PrintDocument1.Print()
End Sub

Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System. _
            Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
'印刷位置をmm単位で指定しての簡単なテキストの印刷
    'テキストボックスの内容を印刷
    Dim g As Graphics = e.Graphics
    'ミリメートルを長さの単位に指定します。
    g.PageUnit = GraphicsUnit.Millimeter
    g.DrawString("■ 左から20mm 上から40mm の位置に印刷しました。", _
                New Font("ＭＳ Ｐゴシック", 12), Brushes.Black, 20, 40)

'テキストボックスの内容を印刷する場合
    'g.DrawString(TextBox1.Text, _
    '            New Font("ＭＳ Ｐゴシック", 12), Brushes.Black, 0, 0)
End Sub

'テキストボックスの内容を印刷する場合に下記で印刷物をご用意下さい。
Private Sub Form1_Load(ByVal sender As System.Object, _
　　　　　　　　　　　 ByVal e As System.EventArgs) Handles MyBase.Load
'テキストファイルを丸ごと読み込みテキストボックスに表示
    TextBox1.Clear()
    'テキストファイルを現在のエンコード（シフトJIS）で開く
    Dim sr As New System.IO.StreamReader("..\..\test.txt", System.Text.Encoding.Default)
    'テキストボックスに読込み表示
    TextBox1.Text = sr.ReadToEnd
    'ストリームを閉じ、システム リソースを解放
    sr.Close()
End Sub