Por fin entendi como funciona, hay que saber bien como funciona el eveno y el parametro HasMorePages.
A quien le iterese pongo el codigo que use:
En el evento PrintPAge del PrintDocument:
Private Sub Documento_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles Documento.PrintPage
Dim drawFont As New Font("Arial", 16)
Dim drawBrush As New SolidBrush(Color.Black)
Dim drawFormat As New System.Drawing.StringFormat
drawFormat.FormatFlags = StringFormatFlags.DirectionVertical
Static count As Integer = 0
e.Graphics.DrawString(count, drawFont, drawBrush, 0, 0)
count = count + 1
If (count < 10) Then
e.HasMorePages = True
Else
e.HasMorePages = False
End If
drawFont.Dispose()
drawBrush.Dispose()
End Sub
Y en el boton que me despliega la vista previa
Private Sub btnVista_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVista.Click
VistaPrevia.Document = Documento
VistaPrevia.ShowDialog()
End Sub
