IMPRIMIR RICHTEXTBOXES CRIADOS VIA CÓDIGO
Essa é uma tela de um visualizador de relatórios. Quantas páginas tiver no relatório, são criados RichTextBox com o nome [Ô]Página[Ô] acrescentando + 1 ao controle já existente, ou seja, como no exemplo da imagem, podem ver na parte inferior, aparece [Ô]Mostrando página ... de ..., então temos duas páginas, portanto existem as RichTextBox: Pagina1 e Pagina2.
Agora, eu preciso imprimir essas duas páginas: No meu código, eu consigo imprimir o relatório inteiro, porém, sai tudo numa mesma folha.
Imprime o conteúdo da Pagina1 e depois imprime o conteúdo da Pagina2 em cima, tudo sobreposto.
Alguém me ajuda a resolver isso?
Aqui está o meu código:
Citação:Public Sub PDoc_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PDoc.PrintPage
total_paginas = Int(TxtPaginaA.Text) - Int(TxtPaginaDe.Text) + 1
While (folhas < total_paginas)
For Each controle In Controls
For i As Integer = Int(TxtPaginaDe.Text) To Int(TxtPaginaA.Text)
If controle.Name = [Ô]Pagina[Ô] & i Then
e.Graphics.DrawString(controle.Text, Tamfonte, Brushes.Black, 20, posicao_da_linha)
End If
folhas += 1
Next
Next
End While
If folhas < total_paginas Then
e.HasMorePages = True
Else
e.HasMorePages = False
End If
End Sub
