IMPRIMIR USANDO O PRINTPREVIEWCONTROL

Private DT As DataTable
Private ProximoRegistro As Integer

Private Sub IniciarImpressao() 
    [ô]reseta o proximo registro
    ProximoRegistro = 0
    [ô]carrega os dados
    DT = MinhaFuncaoQueCarregaDadosERetornaUmDataTable()
    [ô]aqui iniciaria a impressão, se não me engano criaria o PrintDocument
    [ô]e colocaria ele no PrintPreviewControl, mas não me lembro de cabeça
    [ô]e não tenho como testar agora
End Sub

Private Sub Document_PrintPage (ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)

    [ô]eu preciso imprimir 8 por página, então também preciso saber nessa página quantos foram, iniciando pelo 1
    dim ItemAtualDaPagina As Integer = 1

     [ô]muito importante, nunca fique criando objetos Font sem usar o Using ou chamar o Dispose depois
	Using fonteArial8 as New Font([Ô]arial[Ô], 8, FontStyle.Regular)

		[ô]poderia usar um for mas acho mais fácil fazer um do while
		Do While ProximoRegistro < DT.Rows.Count

			 [ô]Aqui eu imprimo o registro atual normalmente         
			e.Graphics.DrawString(UCase(Dt.Rows(ProximoRegistro).ItemArray(0)), fonteArial8, Brushes.Black, Linha, Coluna, New StringFormat())
			[ô].... resto do código de imprimir
			
			[ô]Teminei de imprimir então incremento tanto o atual da página como o proximo registro
			ItemAtualDaPagina += 1
			ProximoRegistro += 1

			[ô]agora verifico se já imprimi os 8 itens que cabem na página
			If ItemAtualDaPagina > 8 Then
				 [ô]se já imprimi 8 então tenho que ver se ainda existem mais itens, se sim preciso setar o HasMorePages
				  [ô]poderia ser um if, mas é mais prático colocar direto a comparação na atribuição do valor
				  e.HasMorePages = ProximoRegistro < DT.Rows.Count
				  [ô]e o mais importante, tenho que sair da função
				  Return
			End If
		Loop

    End Using

End Sub