FORCAR QUEBRA DE PAGINA EM UM PRINTDOCUMENT VB.NET
Srs. boa tarde.
Estou desenhando um relatório em Visual Studio 2010, vb.net com as ferramentas padrão (Printdocumento_Printpage...)
Estou imprimindo fichas de imóveis e a cada 2 fichas impressas, independente do número de linhas impressas, quero forçar uma quebra de página.
Já busquei algum procedimento, mas não obtive exito. Já tentei usar o e.HasMorePages e não consegui mudar de página (A4).
Estou utilizando um
While (tem registro)
for x = 1 to 2
Leitura dos registros e impressao
next
[txt-color=#e80000] Aqui preciso quebrar a página [/txt-color]
end while
Grato por alguma ajuda.
Lauro
Estou desenhando um relatório em Visual Studio 2010, vb.net com as ferramentas padrão (Printdocumento_Printpage...)
Estou imprimindo fichas de imóveis e a cada 2 fichas impressas, independente do número de linhas impressas, quero forçar uma quebra de página.
Já busquei algum procedimento, mas não obtive exito. Já tentei usar o e.HasMorePages e não consegui mudar de página (A4).
Estou utilizando um
While (tem registro)
for x = 1 to 2
Leitura dos registros e impressao
next
[txt-color=#e80000] Aqui preciso quebrar a página [/txt-color]
end while
Grato por alguma ajuda.
Lauro
Tente utilizar o metodo HasMorePages
[c]While (tem registro)
for x = 1 to 2
Leitura dos registros e impressao
if (x = 2) then
SeuPrint.HasMorePages = True
End If
next
SeuPrint.HasMorePages = False
end while[/c
Verifica se funciona
[c]While (tem registro)
for x = 1 to 2
Leitura dos registros e impressao
if (x = 2) then
SeuPrint.HasMorePages = True
End If
next
SeuPrint.HasMorePages = False
end while[/c
Verifica se funciona
Filman, grato pelo retorno.
Entretanto, a sugestão não funciona.
Mas, conforme já havia mencionado no inÃcio do tópico, já estou fazendo uso do método HasMorePages, só para relembrar, segue parte do código. Estou suprimindo as linhas de impressão que não tem nada a ver com o problema:
While (leitura registros = true)
inicializo variáveis, imprimo cabeçalho
[ô] entro em um For Next de 2 passagens (2 fichas por página)
for x = 1 to 2
dataset.read()
tratamento e impressão dos campos
next
e.HasMorePages = true (não preciso testar valor de x dentro do For next, porque sempre irá sair após a impressão da 2ª ficha.
End while
Preciso descobrir um metodo para dizer ao aplicativo -> abra uma nova página.
Grato
Entretanto, a sugestão não funciona.
Mas, conforme já havia mencionado no inÃcio do tópico, já estou fazendo uso do método HasMorePages, só para relembrar, segue parte do código. Estou suprimindo as linhas de impressão que não tem nada a ver com o problema:
While (leitura registros = true)
inicializo variáveis, imprimo cabeçalho
[ô] entro em um For Next de 2 passagens (2 fichas por página)
for x = 1 to 2
dataset.read()
tratamento e impressão dos campos
next
e.HasMorePages = true (não preciso testar valor de x dentro do For next, porque sempre irá sair após a impressão da 2ª ficha.
End while
Preciso descobrir um metodo para dizer ao aplicativo -> abra uma nova página.
Grato
Experimente assim:
Até mais.
While (leitura registros = true)
inicializo variáveis, imprimo cabeçalho
[ô] entro em um For Next de 2 passagens (2 fichas por página)
for x = 1 to 2
dataset.read()
tratamento e impressão dos campos
next
End while
If (leitura registros) = True Then
e.HasMorePages = True
Else
e.HasMorePages = False
EndIfAté mais.
E então, funcionou?????
Bom dia, Percifilho.
Acabei conseguindo montar o procedimento dentro de outro que já estava funcionando.
Talvez não tenha conseguido encaixar no ponto exato o método HasMorePages, mas, problema resolvido.
Alias, montar relatório com ferramenta nativa do visual não é nada amigavel.
Grato pelas informações
Acabei conseguindo montar o procedimento dentro de outro que já estava funcionando.
Talvez não tenha conseguido encaixar no ponto exato o método HasMorePages, mas, problema resolvido.
Alias, montar relatório com ferramenta nativa do visual não é nada amigavel.
Grato pelas informações
Tópico encerrado , respostas não são mais permitidas