Dim al As New ArrayList
    Dim cl As Integer
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        For i As Integer = 1 To 100
            al.Add("Some line data " + i.ToString())
        Next
    End Sub
 
    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e _
      As System.Drawing.Printing.PrintPageEventArgs) Handles _
      PrintDocument1.PrintPage
        Dim x As Single = e.MarginBounds.Left / 100
        Dim y As Single = e.MarginBounds.Top / 100
        Dim maxy As Single = e.MarginBounds.Bottom / 100
        Dim bb As Brush = Brushes.Black
        Dim line As String
 
        e.Graphics.PageUnit = GraphicsUnit.Inch
 
        Dim size As SizeF = e.Graphics.MeasureString("a", Me.Font)
 
        While cl < al.Count And y + size.Height <= e.MarginBounds.Bottom / 100
            line = al(cl).ToString()
            e.Graphics.DrawString(line, Me.Font, bb, x, y)
            y += size.Height
            cl += 1
        End While
 
        If cl < al.Count Then
            e.HasMorePages = True
        Else
            e.HasMorePages = False
        End If
 
    End Sub
 
    ' Print
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        cl = 0
        PrintDocument1.Print()
    End Sub
 
End Class