Private Sub PrintText(ByVal sender As Object, _
       ByVal ev As Printing.PrintPageEventArgs)
 
        ev.Graphics.DrawString("Headline", New Font("Arial", 14), _
                               New SolidBrush(Color.Blue), 100, 100)
 
        ev.Graphics.DrawString(TextBox1.Text, New Font("Arial", 12, _
                                    FontStyle.Regular), Brushes.Black, 100, 200)
        ev.HasMorePages = False
 
    End Sub