Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - .NET

Страница: 1 |

 

  Вопрос: Многостраничная ечать документа Добавлено: 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 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам