MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    avatar
    infformax
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 241
    Registrado : 29/05/2013

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

    Mensagem  infformax 1/12/2014, 14:22

    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
    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11228
    Registrado : 30/12/2009

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

    Mensagem  criquio 1/12/2014, 14:56

    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


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    infformax
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 241
    Registrado : 29/05/2013

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

    Mensagem  infformax 1/12/2014, 18:30

    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
    avatar
    infformax
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 241
    Registrado : 29/05/2013

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

    Mensagem  infformax 1/12/2014, 21:43

    up
    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11228
    Registrado : 30/12/2009

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

    Mensagem  criquio 1/12/2014, 22:11

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


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3711
    Registrado : 04/04/2010

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

    Mensagem  Avelino Sampaio 2/12/2014, 08:54

    Olá

    uma outra opção:

    Print #1, Tab(3); iif(len(ENDER)>20,mid(ENDER,1,20) & vbNewLine & mid(ENDER,21),ENDER)

    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    infformax
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 241
    Registrado : 29/05/2013

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

    Mensagem  infformax 2/12/2014, 13:53

    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


    Última edição por infformax em 2/12/2014, 14:07, editado 4 vez(es)
    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11228
    Registrado : 30/12/2009

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

    Mensagem  criquio 2/12/2014, 14:03

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


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    infformax
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 241
    Registrado : 29/05/2013

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

    Mensagem  infformax 2/12/2014, 18:12

    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
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3711
    Registrado : 04/04/2010

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

    Mensagem  Avelino Sampaio 2/12/2014, 18:34

    Tente:

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

    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11228
    Registrado : 30/12/2009

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

    Mensagem  criquio 2/12/2014, 18:36

    Já tentou assim?

    Código:
    Nome1 = Left(ender, 20) & vbNewLine & Space(3) & Right(ender, Len(ender - 20))


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11228
    Registrado : 30/12/2009

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

    Mensagem  criquio 2/12/2014, 18:38

    Respondemos meio juntos Razz


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    infformax
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 241
    Registrado : 29/05/2013

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

    Mensagem  infformax 3/12/2014, 20:53

    muito obrigado a todos , funcionou

    criquio
    criquio
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11228
    Registrado : 30/12/2009

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

    Mensagem  criquio 4/12/2014, 00:04

    Grato pelo retorno. O fórum agradece.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


      Data/hora atual: 16/4/2021, 21:35