Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As _
  System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim gr As Graphics = e.Graphics
        Dim printrectf As RectangleF = RectangleF.op_Implicit(e.MarginBounds)
        Dim fnt As Font = TextBox1.Font
        Dim s As String
 
        Static linesPerPage As Integer    
        Static columnsPerLine As Integer  
        Static pageNr As Integer          
        Static maxPageNr As Integer       
        Static lastPageNr As Integer      
        Static lineNr As Integer       
        Static txtLines() As String       
 
 
 
        If initPrint = False Then
            Dim sizf As SizeF
            Dim firstLineOfPage As New Collections.ArrayList()
 
 
            sizf = gr.MeasureString("W", fnt)
            linesPerPage = CInt(Int(printrectf.Height / sizf.Height)) - _
              headLines
            sizf = gr.MeasureString("W", fnt, 0, _
            StringFormat.GenericTypographic)
            columnsPerLine = CInt(Int(printrectf.Width / sizf.Width))
            txtLines = TextBox1.Lines
 
 
 
            lineNr = 0
            pageNr = 0
            firstLineOfPage.Insert(0, 0)  
            Do
                pageNr += 1
                firstLineOfPage.Insert(pageNr, lineNr)
                lineNr = PrintOnePage(gr, fnt, printrectf, txtLines, lineNr, _
                  linesPerPage, columnsPerLine, False)
            Loop Until lineNr >= txtLines.GetUpperBound(0)
            maxPageNr = pageNr
 
 
            If e.PageSettings.PrinterSettings.PrintRange = _
              Printing.PrintRange.SomePages Then
                pageNr = e.PageSettings.PrinterSettings.FromPage
                lastPageNr = e.PageSettings.PrinterSettings.ToPage
                If lastPageNr > maxPageNr Then lastPageNr = maxPageNr
                If pageNr > maxPageNr Then pageNr = maxPageNr
                lineNr = CInt(firstLineOfPage(pageNr))
            Else
                pageNr = 1
                lastPageNr = maxPageNr
                lineNr = 0
            End If
 
 
 
            initPrint = True
        End If
 
                PrintHeadLine(gr, fnt, printrectf, pageNr, maxPageNr)
        lineNr = PrintOnePage(gr, fnt, printrectf, txtLines, _
          lineNr, linesPerPage, columnsPerLine, True)
 
 
        pageNr += 1
        If pageNr <= lastPageNr Then
            e.HasMorePages = True
        Else
            e.HasMorePages = False
            Erase txtLines
        End If
    End Sub

all rights reversed reprint what you like