VBNet - Форум - Вопрос по многостраничной печати.

Вопрос: Вопрос по многостраничной печати. Добавлено: 02.12.05 11:44

Автор вопроса: Michael Melchakov | ICQ: 302272185

Люди хорошие, посоветуйте пожалуйста как отпечатать в VB.net несколько страниц.
Т.е. начало такое:
    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim LineHeight, LineNumber, nnn, nnn1 As Single

    LineNumber += 2
        e.Graphics.DrawString("Тип ремня:", New Font("Arial", 12), Brushes.Black, nnn + 305, LineHeight * LineNumber)
           LineNumber += 1
        e.Graphics.DrawString("h =", New Font("Arial", 12), Brushes.Black, nnn + 365, LineHeight * LineNumber)

и так далее...
Одна страница заполняется...

А как сделать,ч тобы можно было напечатать и просмотреть вторую, третью и последующие страницы?

Ответить

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

Номер ответа: 1 Автор ответа: K&M ICQ: 225442067 Вопросов: 20 Ответов: 170	Профиль \| \| #1	Добавлено: 02.12.05 16:45
	Просто вызывать этот саб для следующих страниц не получается? Ответить

Номер ответа: 2 Автор ответа: GSerg Вопросов: 0 Ответов: 1876	Профиль \| \| #2	Добавлено: 02.12.05 16:48
	e.HasMorePages = true Ответить

Номер ответа: 3 Автор ответа: Michael Melchakov ICQ: 302272185 Вопросов: 12 Ответов: 31	Профиль \| \| #3	Добавлено: 03.12.05 13:04
	Если вставлять после Sub в последующих строках, то данное изречение дает бесконечное количество страниц, т.е. номера страниц начинают бежать и бежать без остановки, пока отмена не нажмешь. Спасибо за попытку помощи. Ответить

Номер ответа: 4 Автор ответа: Michael Melchakov ICQ: 302272185 Вопросов: 12 Ответов: 31	Профиль \| \| #4	Добавлено: 03.12.05 13:07
	к сожалению нет! Если конечно правильно вас понял! Хотя... Ответить

Номер ответа: 5 Автор ответа: GSerg Вопросов: 0 Ответов: 1876	Профиль \| \| #5	Добавлено: 03.12.05 17:11
	Последний ответ неясен, но, видимо, он относится к моему ответу. Как применил? Ответить

Номер ответа: 6 Автор ответа: Michael Melchakov ICQ: 302272185 Вопросов: 12 Ответов: 31	Профиль \| \| #6	Добавлено: 03.12.05 23:01
	Ответ для GSerg: Пробовал вставить типа такого: Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage im LineHeight, LineNumber, nnn, nnn1 As Single LineNumber += 2 e.Graphics.DrawString("Тип ремня:", New Font("Arial", 12), Brushes.Black, nnn + 305, LineHeight * LineNumber) e.HasMorePages = true LineNumber += 1 e.Graphics.DrawString("h =", New Font("Arial", 12), Brushes.Black, nnn + 365, LineHeight * LineNumber) Не получилось. Если честно, то про это (e.HasMorePages = true) я уже читал недельки 2 назад в какой-то книжке, но там ни чего не было разъяснено. Куда только не пытался это запихнуть не получалось! Так и не добившись успеха в данном деле, пробую поспрашивать у профи... Может хоть помогут! Ответить

Номер ответа: 7 Автор ответа: GSerg Вопросов: 0 Ответов: 1876	Профиль \| \| #7	Добавлено: 04.12.05 10:13
	Судя по LineNumber += 2, могу предположить, что речь о великой книге Эпплмана, до прочтения которой и правда надо дорасти... Примеры к ней скачай. http://www.piter.com/bugs/5-318-00746-5/MovingToVBNet.rar http://www.piter.com/bugs/5-318-00746-5/MovingToVBNet.r00 В архиве - Source\CH12\PrintingDemo Всё так, для начала, делаешь? Ответить

Номер ответа: 8 Автор ответа: Michael Melchakov ICQ: 302272185 Вопросов: 12 Ответов: 31	Профиль \| \| #8	Добавлено: 04.12.05 10:59
	Ответ GSerg: Все так и делал, т.е. и так пытался! Но все та же белиберда! Есть только книжица на русском: http://www.ishodniki.kiev.ua/doc/lesson/vbnetbook.php За примеры огромное спасибо! А то в той книжке, столько ошибок!!! И что дальше? Ответить

Номер ответа: 9 Автор ответа: Michael Melchakov ICQ: 302272185 Вопросов: 12 Ответов: 31	Профиль \| \| #9	Добавлено: 06.12.05 10:36
	Может просто у кого есть пример? Ответить

Страница: 1 |