printPreview quebra pagína

[weslei.conexao 0]

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 !

[quintelab 91]

Você fez tudo via código e isso complica um pouco.

Mas o que acontece ele deixar de imprimir as linhas que saíriam na outra página?

 

Abraços...

[weslei.conexao 0]

Obrigado por responder, no meu form digito a quantidade de etiquetas que deve ser gerada ! ex de digito 8, aparece 4 etiqueta na primeira pagína e as outras 4 queria que aparecesse na pagina 2, mas só a primeira e só ta imprimindo a primeira pagina, ou seja preciso criar pagínas no relatório de etiquetas de acordo com a quantidade de etiqueta digitana no meu form !

 

Abraço ...