QUEBRA DE LINHA
Amigos, tô tentando imprimir o conteúdo do [Ô]campo informação[Ô]com uma quebra de linha e não tô conseguindo. Segue o meu código:
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim objimpressao As Graphics = e.Graphics [ô]crio minha variável do tipo desenho
objimpressao.DrawString([Ô]Informação: [Ô] + Campo_informacao.Text.ToString, New System.Drawing.Font([Ô]Courier New[Ô], 10), Brushes.Black, 10, 28)
End Sub
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim objimpressao As Graphics = e.Graphics [ô]crio minha variável do tipo desenho
objimpressao.DrawString([Ô]Informação: [Ô] + Campo_informacao.Text.ToString, New System.Drawing.Font([Ô]Courier New[Ô], 10), Brushes.Black, 10, 28)
End Sub
Ninguém sabe? 
Amigo, se vc usar o chr(10) ou chr(13) não funciona ?
Abraços
Abraços
Rafa, usei este codigo que peguei no MSDN e funcionou, só que corta a palavra no meio
Dim linhadeimpressao As New SizeF(750, FonteNormal.Height)
Dim caracteres As Integer
Dim linhas As Integer
[ô] Enquanto tiver texto para imprimir...
While rTraducao.Length > 0
[ô] Obtenho o número de caracteres que vou conseguir imprimir na linha
[ô] que eu especifiquei o tamanho. No caso, é a variável caracteres que
[ô] me importa aqui abaixo.
[ô]e.Graphics.MeasureString(rTraducao, FonteNormal, linhadeimpressao, StringFormat.GenericDefault, caracteres, linhas)
e.Graphics.MeasureString(rTraducao, FonteNormal, linhadeimpressao, StringFormat.GenericDefault, caracteres, linhas)
[ô] aà então eu imprimo os caracteres que cabem na linha, fazendo o substring abaixo
e.Graphics.DrawString(rTraducao.Substring(0, caracteres), FonteNormal, Brushes.Black, MargemEsquerda + 320, PosicaoDaLinha, New StringFormat)
[ô] meu controle de altura de página é incrementado com o tamanho de uma linha
PosicaoDaLinha += FonteNormal.Height
[ô] aà eu vejo se já extrapolei o tamanho para a próxima linha ou não
If PosicaoDaLinha > e.MarginBounds.Height Then
Exit While
End If
[ô] Retiro os caracteres impressos da variável para imprimir o resto.
rTraducao = rTraducao.Substring(caracteres)
LinhaAtual += 1
End While
[ô]======================================
[ô]funciona a quebra de linha
[ô]======================================
vc só precisa acertar as variaveis de acordo com as que vc usa
Dim linhadeimpressao As New SizeF(750, FonteNormal.Height)
Dim caracteres As Integer
Dim linhas As Integer
[ô] Enquanto tiver texto para imprimir...
While rTraducao.Length > 0
[ô] Obtenho o número de caracteres que vou conseguir imprimir na linha
[ô] que eu especifiquei o tamanho. No caso, é a variável caracteres que
[ô] me importa aqui abaixo.
[ô]e.Graphics.MeasureString(rTraducao, FonteNormal, linhadeimpressao, StringFormat.GenericDefault, caracteres, linhas)
e.Graphics.MeasureString(rTraducao, FonteNormal, linhadeimpressao, StringFormat.GenericDefault, caracteres, linhas)
[ô] aà então eu imprimo os caracteres que cabem na linha, fazendo o substring abaixo
e.Graphics.DrawString(rTraducao.Substring(0, caracteres), FonteNormal, Brushes.Black, MargemEsquerda + 320, PosicaoDaLinha, New StringFormat)
[ô] meu controle de altura de página é incrementado com o tamanho de uma linha
PosicaoDaLinha += FonteNormal.Height
[ô] aà eu vejo se já extrapolei o tamanho para a próxima linha ou não
If PosicaoDaLinha > e.MarginBounds.Height Then
Exit While
End If
[ô] Retiro os caracteres impressos da variável para imprimir o resto.
rTraducao = rTraducao.Substring(caracteres)
LinhaAtual += 1
End While
[ô]======================================
[ô]funciona a quebra de linha
[ô]======================================
vc só precisa acertar as variaveis de acordo com as que vc usa
Tópico encerrado , respostas não são mais permitidas