printPreview quebra pagína

Oi gente tudo bem ?? preciso de uma mãozinha, deve ser facil mas apanhando aqui, fiz um um relatório pra que gerar etiquetas, ta do jeito que eu queria mas quando crio um relátorio só aparece 1 pagina. Como fazer para aparecer mas de um pagína ?? eis um pedaço do código !

For L As Single = 1 To EtiquetasLinha
For C As Single = 1 To EtiquetasColuna
Nome = FrmCliente.gridCliente.SelectedCells(2).Value
Endereco = FrmCliente.gridCliente.SelectedCells(3).Value
Cidade = FrmCliente.gridCliente.SelectedCells(4).Value
Estado = FrmCliente.gridCliente.SelectedCells(5).Value
' NESTE EXEMPLO ABAIXO FAZEMOS ALINHAMENTO DAS STRINGS À DIREITA
' PARA DEIXAR O ALINHAMENTO À ESQUERDA É SÓ RETIRAR O CODIGO ABAIXO
Nome = Nome.PadLeft(10, Convert.ToChar(" "))
Endereco = Endereco.PadLeft(10, Convert.ToChar(" "))
Cidade = Cidade.PadLeft(10, Convert.ToChar(" "))
Estado = Estado.PadLeft(10, Convert.ToChar(" "))
volume += 1
'Para Inserir moldura nas etiquetas
' Relatorio.Graphics.DrawRectangle(CanetaDaImpressora, PosicaoDaColuna + 100, PosicaoDaLinha + 100, LarguraEtiqueta + 100, AlturaEtiqueta + 100)
'Image.FromFile(strAppPath & "nwlogo.gif")
Relatorio.Graphics.DrawString("Volume ......: " + "1/" + volume, FNegrito, Brushes.Blue, PosicaoDaColuna, PosicaoDaLinha + 0, New StringFormat())
Relatorio.Graphics.DrawString("Destinatário.: " + Nome, FTitulo, Brushes.Black, PosicaoDaColuna, PosicaoDaLinha + 33, New StringFormat())
Relatorio.Graphics.DrawString("Endereço.......: " + Endereco, FNormal, Brushes.Black, PosicaoDaColuna, PosicaoDaLinha + 63, New StringFormat())
Relatorio.Graphics.DrawString("Cidade.........: " + Cidade, FNormal, Brushes.Blue, PosicaoDaColuna, PosicaoDaLinha + 93, New StringFormat())
Relatorio.Graphics.DrawString("Estado.........: " + Estado, FNormal, Brushes.Black, PosicaoDaColuna, PosicaoDaLinha + 123, New StringFormat())
Relatorio.Graphics.DrawString("Remetente.........: " + Remetente, FRodape, Brushes.Black, PosicaoDaColuna, PosicaoDaLinha + 183, New StringFormat())
Relatorio.Graphics.DrawString("Endereco .........: " + end_remetente, FRodape, Brushes.Black, PosicaoDaColuna, PosicaoDaLinha + 203, New StringFormat())
Relatorio.Graphics.DrawString("CEP...............: " + cep, FRodape, Brushes.Black, PosicaoDaColuna, PosicaoDaLinha + 223, New StringFormat())
' Relatorio.Graphics.DrawLines (ca)
' Relatorio.Graphics.DrawLine(CanetaDaImpressora, MargemEsquerda, 1000, MargemDireita, 1000)
'MargemEsquerda += TamanhoEtiqueta
PosicaoDaColuna += LarguraEtiqueta + EspacoHorizEntreEtiqueta
'incrementa o número da página
Next
PosicaoDaLinha += AlturaEtiqueta + EspacoVertEntreEtiqueta
PosicaoDaColuna = MargemEsquerda
Next
End Sub

Aguardo ajuda ..grato !