OBJETO PRINTER - HIFEN?

MARCIOR 06/07/2005 14:44:32
#92465

Necessitava do procedimento que quebrava a linha de um texto eum uma impressão utilizando o objeto printer.....e fui atendido neste forum com o procedimento descrito abaixo........só que surgiu um problema...necessito que quando ocorrer uma quebra de linha que a palvavra final da linha fique com o Hífen...ou que ela vá para a próxima linha.....pois o que ocoore no procedimento abaixo é que fica metade da palvra em uma linha e a outra metade na próxima linha....necessito que aja o hífen..ou que a palavra fique "inteira" na próxima linha.....


Dim l, m As Integer
Dim textocentralrisco As String
Dim T As String
Dim textocentral As String
textocentral = txtparecer.text
textocentralrisco = textocentral
If Len(textocentralrisco) > 110 Then
T = Len(textocentralrisco) / 110 ' descobre o número de linhas
If T - Int(T) <> 0 Then ' seo o resto da divisão for <> 0, soma 1
T = Int(T) + 1
End If
m = 1
For l = 1 To T
Printer.Print Mid(textocentralrisco, m, 110)
m = m + 110
Next
Else
Printer.Print textocentralrisco
End If