codice:
If PagineStampate = 60 Then
   e.HasMorePages = True
   exit sub
Else
   e.HasMorePages = False
End If
Prova così