Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

        Dim font As New Font("Verdana", 14)
        Dim PrintAreaHeight, PrintAreaWidth, marginLeft, marginTop As Int32
        With PrintDocument1.DefaultPageSettings

            'initializing local variables that contain the bounds of the printing area rectangle
            PrintAreaHeight = .PaperSize.Height - .Margins.Top - .Margins.Bottom
            PrintAreaWidth = .PaperSize.Width - .Margins.Left - .Margins.Right
            marginLeft = .Margins.Left
            marginTop = .Margins.Top

            ' if the user selects landscape mode, swap the printing area height and width
            If PrintDocument1.DefaultPageSettings.Landscape Then
                Dim intTemp As Int32
                intTemp = PrintAreaHeight
                PrintAreaHeight = PrintAreaWidth
                PrintAreaWidth = intTemp
                ' if the user selects landscape mode, swap the printing area height and width
            End If

           ' initializing the rectangle structure that defines the printing area
            Dim rectPrintingArea As New RectangleF(marginLeft, marginTop, PrintAreaWidth, PrintAreaHeight)
            ' calculating the total number of lines in the document based on the height of
            ' the printing area and the height of the font
            Dim intLineCount As Int32 = CInt(PrintAreaHeight / font.Height)
            'instantiating the StringFormat class, which encapsulates text layout information
            Dim fmt As New StringFormat(StringFormatFlags.LineLimit)

            ' print the text to the page
            e.Graphics.DrawString(Mid(TextBox1.Text, 1), font, Brushes.Black, rectPrintingArea, fmt)

            'HasMorePages tells the printing module whether another PrintPage event should be fired
            e.HasMorePages = False
        End With

    End Sub