01.
Private
pd
As
New
PrintDocument()
02.
Private
pageCount
As
Integer
= 0
03.
04.
Private
Sub
pd_PrintPage(sender
As
Object
, e
As
PrintPageEventArgs)
05.
06.
pageCount++
07.
08.
If
pageCount >= 50
Then
09.
e.HasMorePage =
False
10.
End
If
11.
End
Sub