Public PrintString As String
    Public linecount As Integer
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button1.Click
        If PrintDialog.ShowDialog() = Windows.Forms.DialogResult.Cancel Then
            Exit Sub
        End If
 
        Dim prnt As New Printing.PrintDocument
        prnt.PrinterSettings = PrintDialog.PrinterSettings
        prnt.DocumentName = "TestPrint " & My.Computer.Clock.LocalTime.ToString
 
        PrintString = ""
        For i = 1 To 185
            PrintString = PrintString & " " & i & vbNewLine
        Next i
 
        linecount = 0
        AddHandler prnt.PrintPage, AddressOf PrintPageHandler
        prnt.Print()
        RemoveHandler prnt.PrintPage, AddressOf PrintPageHandler
    End Sub
 
    Public Sub PrintPageHandler(ByVal sender As Object, ByVal args As _
      Printing.PrintPageEventArgs)
        Dim Lines() As String = PrintString.Split(vbNewLine)
        Dim Fontt As New Font("Arial", 10, FontStyle.Regular, _
          GraphicsUnit.Pixel)
        Dim Actline As String
 
        Dim VerticalPos As Integer = 20
 
        Do
            Actline = Lines(linecount)
            args.Graphics.DrawString(Actline, Fontt, Brushes.Black, 20, _
              VerticalPos)
            VerticalPos = VerticalPos + Fontt.Height
 
            If linecount < UBound(Lines) Then
                linecount = linecount + 1
            End If
 
            If VerticalPos + (4 * Fontt.Height) >= args.PageBounds.Bottom Then
                args.HasMorePages = True
                Return
            End If
 
        Loop Until linecount >= UBound(Lines)
    End Sub