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


2 participantes

    [Resolvido]Quebra de linha em Cupom não Fiscal

    augustopimenta
    augustopimenta
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 151
    Registrado : 19/03/2012

    [Resolvido]Quebra de linha em Cupom não Fiscal Empty Quebra de linha em Cupom não Fiscal

    Mensagem  augustopimenta 2/10/2012, 21:45

    OI pessoal,..
    Tenho a seguinte parte de um código (Conseguido aqui no forum) para imprimir em um cupom não fiscal:
    Print #1, Tab(0); " "
    Print #1, Tab(0); "Cliente: "; Left(rs1!NomeClienteVenda, 24); ""
    Print #1, Tab(0); "End.:"; Left(rs1!EnderecoClienteVenda, 24); ""
    Print #1, Tab(0); Left(rs1!BairroClienteVenda, 24); " - "; Left(rs1!CidadeClienteVenda, 24); ""
    Print #1, Tab(0); "Contato:"; Format(Format(rs1!FoneCliente1Venda, "(##) ##00-0000"), "@@@@@@@@@@@@@@"); " ou "; Format(Format(rs1!FoneCliente2Venda, "(##) ##00-0000"), "@@@@@@@@@@@@@@")
    Print #1, Tab(0); "Obs:"; Left(rs1!ObsClienteVenda, 30); ""
    Print #1, Tab(0); " "
    Print #1, Tab(0); String(40, "-");
    Meu problema é a que a linha em negrito é um campo que tem um pouco mais de texto, logo quando imprimo a informação não sai completa.
    Como faço para que ao imprimir o campo "ObsClienteVenda" seja impresso em duas ou três linhas? Ou seja como faço para que haja uma ou duas quebras de linha na impressão ?
    Desde já agradeço ....
    avatar
    rclenzi
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 10/10/2012

    [Resolvido]Quebra de linha em Cupom não Fiscal Empty Re: [Resolvido]Quebra de linha em Cupom não Fiscal

    Mensagem  rclenzi 10/10/2012, 23:00

    Segue código modificado:

    Print #1,
    Print #1, "Cliente: " & Left(rs1!NomeClienteVenda, 24)
    Print #1, "End.:" & Left(rs1!EnderecoClienteVenda, 24)
    Print #1, Left(rs1!BairroClienteVenda, 24) & " - " & Left(rs1!CidadeClienteVenda, 24)
    Print #1, "Contato:" & Format(Format(rs1!FoneCliente1Venda, "(##) ##00-0000"), "@@@@@@@@@@@@@@") & " ou " & Format(Format(rs1!FoneCliente2Venda, "(##) ##00-0000"), "@@@@@@@@@@@@@@")

    if not isnull(rs1!ObsClienteVenda) then
    print #1, "Observacao:"

    dim Observacao as string

    Observacao = rs1!ObsClienteVenda

    while Observacao <> ""
    print #1, Left(Observacao, 30)
    Observacao = mid(Observacao, 31)
    wend
    end if

    Print #1, " "
    Print #1, String(40, "-");

    O ; na instrução print serve para indicar que nao haverá quebra de linha, eu particularmente prefiro ir emendando o texto todo com o &
    O tab serve para dar um espaço, como o tab(0) não faz nada, nao há a necessidade dele, particularmente eu prefiro a função space para fazer isso
    augustopimenta
    augustopimenta
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 151
    Registrado : 19/03/2012

    [Resolvido]Quebra de linha em Cupom não Fiscal Empty Re: [Resolvido]Quebra de linha em Cupom não Fiscal

    Mensagem  augustopimenta 11/10/2012, 01:34

    Obrigado rclenzi.
    Vivendo e aprendendo.. Seu código funcionou perfeitamente...
    Valeu pelas dicas e explicações. É sempre bom aprender mais.....
    Sucesso !!!!!

    Conteúdo patrocinado


    [Resolvido]Quebra de linha em Cupom não Fiscal Empty Re: [Resolvido]Quebra de linha em Cupom não Fiscal

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/11/2024, 22:54