Notifications
Clear all

Quebra de Linha - TextBox - PDF

2 Posts
2 Usuários
0 Reactions
1,601 Visualizações
(@brunamv)
Posts: 6
Active Member
Topic starter
 

Eu tenho um TexBox no Formulário com Multine e WordWrap True, além do TabKeyBehavior False para a quebra de linha com a tecla enter.

O texto inserido nessa caixa de texto vai para uma célula mesclada de uma planilha. E depois eu gero um relatório, convertido para PDF.

No entanto a cada quebra de linha feita manualmente, aparece no relatório PDF um quadradinho no final da linha. Teria como retirá-lo?

Há uma forma de converter o texto da caixa?

Segue parte dos códigos:

'Passando os valores para a planilha
ElseIf CbProvisao.Value = "Editado" And CxObservacao <> Empty Then

Range("B16").Value = CbProvisao.Value
Editado.Range("A23").Value = CxObservacao.Value

Unload Me
FrmCadastroCice.Show

'Publicando em pdf
ElseIf Range("B16").Value = "Editado" Then
Sheets(Array("Editado", "Anexo")).Select
Sheets("Editado").Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
SvInput, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True

Alguma Dica?

Obrigada

 
Postado : 21/08/2012 1:28 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

O quadradinho, como disse, trata-se do comando de identificação da quebra de linha naquele ponto.
Elimina-lo da exportação diretamente do txt para a celula do excel creio que não será viavel.

Mas creio tb que e possivel simular essa retirada:
Não sei em qual das ranges/txt e com multiline, supondo que seja cxobservacao,(se for nos dois ou no outro faça a adaptação) então experimente:

Editado.Range("A23") = CxObservacao.Text
Editado.Range("A23") = Application.WorksheetFunction.Substitute(Range("A23"), Chr(13), "")
 
Postado : 21/08/2012 2:56 pm