Protected Overrides Sub OnPrintPage(ByVal ev As PrintPageEventArgs)
        iCurrPage += 1
        MyBase.OnPrintPage(ev)
 
        Dim lpp As Single = 0
        Dim yPos As Single = 0
        Dim count As Integer = 0
        Dim leftMargin As Single = ev.MarginBounds.Left
        Dim topMargin As Single = ev.MarginBounds.Top
        Dim line As String
        Dim pt As Drawing.Point = New Drawing.Point(150, 150)
        ev.Graphics.DrawImage(".\me", pt)
 
        'Work out the number of lines per page
        'Use the MarginBounds on the event to do this
        lpp = ev.MarginBounds.Height / printFont.GetHeight(ev.Graphics)
 
        'Now iterate over the file printing out each line
        'NOTE WELL: This assumes that a single line is not wider than the page 
        ' width
        'Check count first so that we don't read line that we won't print
        line = streamToPrint.ReadLine()
        While ((count < lpp) And Not (line Is Nothing))
 
            yPos = topMargin + (count * printFont.GetHeight(ev.Graphics))
 
            ev.Graphics.DrawString(line, printFont, Brushes.Black, leftMargin, _
              yPos, New StringFormat())
 
            count = count + 1
 
            If (count < lpp) Then
                line = streamToPrint.ReadLine()
            End If
 
        End While
 
        'If we have more lines then print another page
        If (line <> Nothing) Then
            ev.HasMorePages = True
        Else
            ev.HasMorePages = False
        End If
 
    End Sub
 
End Class