Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        PrintDocument1.DefaultPageSettings.Landscape = True
        PrintDocument1.Print()
    End Sub



    Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        e.Graphics.PageUnit = GraphicsUnit.Millimeter

        e.Graphics.DrawString(TextBox1.Text, _
        New Font("Arial", 20, FontStyle.Bold Or FontStyle.Italic), Brushes.Blue, 100, 50)

        e.Graphics.DrawLine(New Pen(Brushes.Red, 5), 30, 60, 200, 100)

        e.Graphics.DrawEllipse( _
            New Pen(Brushes.DarkOrange, 3), _
             100, 50, 40, 80)
    End Sub

End Class