[serega.1979]

Здравствуйте! Помогите пожалуйста найти ошибку. Есть текстовый файл 208 строк который нужно распечатать. Проблема в том, что формирование текста происходит только на одной странице (текст накладывается поверх уже существующего, новая страница не создается). Не могу понять почему не создается новая страница?! Заранее благодарен!
Вот код:

Код:

[Выделить все]

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

[Кулик Алексей aka kpblc]

serega.1979, для начала: программа самостоятельная или идет как дополнение? Второе: почему сразу в заголовке было не указать, что разговор про VB.NET?