Печать текстового документа

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
 
        Dim strText = Split(FileIO.FileSystem.ReadAllText("j:\1.txt"), Chr(13))
        Dim strBrush As Drawing.Brush = Brushes.Black
        Dim strFont As Font = New Font("", 10, FontStyle.Regular, GraphicsUnit.Pixel)
        Dim strPoint As Drawing.Point = New Point(0, 0)
        Dim i = 1
        While i <= strText.length
            e.Graphics.DrawString(strText(i - 1), strFont, strBrush, strPoint)
            If strPoint.Y >= 800 Then
                e.PageSettings.PrinterSettings.ToPage = 2
                e.HasMorePages = True
                strPoint.Y = 0
            Else
                e.HasMorePages = False
            End If
            strPoint.Y += 13
            i += 1
        End While
 
 
    End Sub

    Friend WithEvents PrintDoc As New PrintDocument
    Private Stream As IO.StreamReader
    Private Sub Print(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDoc.PrintPage
        Dim count As Integer = 0
        Dim h = Conf.printFont.GetHeight(e.Graphics)  ' Высота шрифта, Conf.printFont - шрифт
        Dim leftMargin As Single = e.MarginBounds.Left
        Dim yPos As Single = e.MarginBounds.Top
        Dim line As String = Nothing
        Dim linesPerPage As Single = e.MarginBounds.Height / h
        While count < linesPerPage
            line = Stream.ReadLine()
            If line Is Nothing Then Exit While
            e.Graphics.DrawString(line, Conf.printFont, System.Drawing.Brushes.Black, leftMargin, yPos, New System.Drawing.StringFormat)
            yPos += h
            count += 1
        End While
        e.HasMorePages = Not (line Is Nothing)
    End Sub
 
...
' печать файла FName
        Try
            Try
                Stream = New IO.StreamReader(FName, System.Text.Encoding.GetEncoding(1251))
                PrintDoc.PrinterSettings.Copies = Copies ' количество копий
                PrintDoc.DocumentName = FName
                PrintDoc.Print()
            Finally
                Stream.Close()
            End Try
        Catch ex As Exception
        End Try