Please take a look at this web site:
http://social.msdn.microsoft.com/forums/en-US/vbgeneral/thread/e78b9ab1-9205-4b27-ac04-d13a5d37355d
Especially the code:
If VerticalPos > e.PageBounds.Bottom Then
e.HasMorePages = True
VerticalPos = 20
End If