[Resolvido]quebrar o texto e jogar para outra linha qdo nao cabe

boa tarde, sera que alguem pode me dar uma dica.

tenho um comando print

Print #1, Tab(3); ENDER

onde vai imprimir o seguinte entedereco

padre bernadino poste, 279

a duvida é:

como quebrar este texto qdo der no maximo 20 caracteres e jogar o restante para a outra linha

ficaria assim:

padre bernadino post
e, 279

alguem pode me ajudar como colocar isso dentro do comando acima.

obrigado

Talvez algo assim:

Código:

Dim Nome As String

If Len(Tab(3)) > 20 Then
    Nome = Left(Tab(3), 20) & vbNewLine & Right(Tab(3), Len(Tab(3) - 20)
Else
    Nome = Tab(3)
End If

Print #1, Nome

É só um exemplo, tendo em vista que não conheço a estrutura do que está tentando fazer. Veja se consegue adaptar

boa tarde

desculpe minha ignoracia, mas os comandos que vc passou , eu nao entendi o pq que fez sobre o tab(3), pois o tab nao é a posicao onde comeca a imprimir?

pois o comando que usei foi assim

Print #1, Tab(3); ENDER onde ender é o endereco.

obrigado e desculpe a ignoracia.


Dim Nome As String

If Len(Tab(3)) > 20 Then
Nome = Left(Tab(3), 20) & vbNewLine & Right(Tab(3), Len(Tab(3) - 20)
Else
Nome = Tab(3)
End If

Print #1, Nome


Print #1, Tab(3); ENDER

up

Coloque dentro do Left e do Right, o texto que deve quebrar.

bom dia

os dois comandos abaixo deram certo, a impressao esta abaixo, so que a 2 linha teria "sair abaixo" do R da rua que foi impresso, pois a rua é impressa 3 casas para frente.



Dim Nome1 As String

If Len(ender) > 20 Then
   Nome1 = Left(ender, 20) & vbNewLine & Right(ender, Len(ender - 20)
Else
   Nome1 = ender
End If

Print #1, Nome1



Print #1, Tab(3); IIf(Len(ender) > 20, Mid(ender, 1, 20) & vbNewLine & Mid(ender, 21), ender)



os dois comandos deram certo, a impressao esta abaixo, so que a 2 linha teria "sair abaixo" do R da rua que foi impresso, pois a rua é impressa 3 casas para frente.



    RUA PADRE BERNADINO
POSTE, 279


obrigado

Concatene "Space(n)" junto com os demais dados, aonde "n" é o número de espaços pretendidos.

boa tarde

olha apanho deste space para caramba, ja tentei colocar ele nos dois comandos e nao consegui

Dim Nome1 As String

If Len(ender) > 20 Then
Nome1 = Left(ender, 20) & vbNewLine & Right(ender, Len(ender) - 20)
Else
Nome1 = ender
End If

Print #1, Tab(3); Nome1


ou

Print #1, Tab(3); IIf(Len(ender) > 20, Mid(ender, 1, 20) & vbNewLine & Mid(ender, 21), ender)


pq pelo que tinha entendido o tab(3) do inicio seria para as duas linhas e ele so faz para a primeira.


obrigado

Já tentou assim?

Código:

Nome1 = Left(ender, 20) & vbNewLine & Space(3) & Right(ender, Len(ender - 20))

Respondemos meio juntos

muito obrigado a todos , funcionou

Grato pelo retorno. O fórum agradece.