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
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), "")
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel