VBNet - Форум - Многостраничная ечать документа

Вопрос: Многостраничная ечать документа Добавлено: 31.01.13 13:53

Автор вопроса: serega1979

Здравствуйте! Помогите пожалуйста найти ошибку. Есть текстовый файл 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

Ответить

Ответы Всего ответов: 1

Номер ответа: 1 Автор ответа: Artyom Разработчик Вопросов: 130 Ответов: 6602	Профиль \| \| #1	Добавлено: 16.02.13 02:46
	Чтоб создалась новая страница, нужно сохранить состояние, поставить HasMorePages=true и выйти из метода. После этого снова произойдет событие и нужно восстановить состояние и продолжить печать следующей страницы. Ответить

Страница: 1 |