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]Corte parcial cupom não fiscal Epson TM20

    avatar
    carniel.ass.info
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 69
    Registrado : 14/09/2012

    [Resolvido]Corte parcial cupom não fiscal Epson TM20 Empty [Resolvido]Corte parcial cupom não fiscal Epson TM20

    Mensagem  carniel.ass.info 20/10/2022, 18:37

    Caros boa tarde.

    Falta bem pouco pra finalizar minha pendência, peço ajuda a quem puder;

    Estou imprimindo o cupom não fiscal do meu projeto perfeitamente, porém como o cliente quer 2 vias do cupom, preciso ao concluir a 1ª via efetuar um corte "parcial" no cupom, e ao término da 2ª via o corte total.

    O colega Jungli me passou esse comando que além de eu não entender também não funcionou, acho que falta algo:

    Print #1, "GS " & Chr(34) & "V" & Chr(34) & "66 0"

    No manual de programação da impressora está assim, descrito como o original:

    Mechanism Control Commands

    GS V m Executes paper cut.
    m = 0, "0", 1, "1"

    GS V m n Executes paper cut after feeding n dots.
    m = "A" or "B"


    Não entendi bulhufas kkk

    O comando de corte está perfeito, no caso quando termina a 2ª via:

    Print #1, Chr(27) + "i

    Agora o bendito "corte parcial" tô apanhando.

    Abraços

    Carniel
    Pablo Neruda
    Pablo Neruda
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 344
    Registrado : 17/09/2010

    [Resolvido]Corte parcial cupom não fiscal Epson TM20 Empty Re: [Resolvido]Corte parcial cupom não fiscal Epson TM20

    Mensagem  Pablo Neruda 20/10/2022, 21:37

    Ei chefe, boa tarde!

    A sua impressora dá suporte ao meio corte?

    Os códigos ESC da EPSON costumam não variar para os modelos, tendo como limitação do hardware...

    Encontrei esse exemplo abaixo, veja se te ajuda...

    ESC m (Corte parcial de papel .)
    Executa o corte de papel e deixa três pontos de união.

    exemplo:

    PRINT #1 "Hola"; -Imprime texto
    PRINT #1 CHR$(&H1B); "d"; CHR$(11); -Avança 11 linhas
    PRINT #1 CHR$(&H1B); "m"; -Executa corte parcial


    .................................................................................
    [Resolvido]Corte parcial cupom não fiscal Epson TM20 Uc?export=view&id=0B-lnOJoekdM2VzZBQzFMVzRreTg
    avatar
    carniel.ass.info
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 69
    Registrado : 14/09/2012

    [Resolvido]Corte parcial cupom não fiscal Epson TM20 Empty Re: [Resolvido]Corte parcial cupom não fiscal Epson TM20

    Mensagem  carniel.ass.info 21/10/2022, 13:08

    Pablo bom dia;

    Obrigado pela ajuda, deu certo com algumas alterações na ordem dos comandos, mas foi resolvido.
    Como tive bastante "dificuldade" pra resolver a questão por completo, usando 2 topicos e a ajuda de 3 a 4 colegas, posto abaixo a rotina que deu certo:

    1 - Fazer o compartilhamento da impressora no Windows
    2 - "Mapear" a impressora via "Prompt de Comando" com o seguinte comando:
    net use LPT1: \\nomedopc\nomedocompartilhamento

    3 - Codigo VBA

    'Aqui abre o mapeamento LPT1
    Open "LPT1:" For Output Access Write As #1

    'Abaixo o exemplo que o colega Pablo disponibilizou com uma pequena alteração de ordem dos comandos
    'Faça as adaptações que forem necessárias ao seu projeto
    Print #1, "Hola"; 'Imprime o texto
    Print #1, Chr$(&H1B); "d"; Chr$(3); 'Avança; 3; linhas
    Print #1, Chr(27) + "m"
    Print #1, Chr$(&H1B); "d"; Chr$(3); 'Avança; 3; linhas
    Print #1, Chr(27) + "i"
    Close #1

    Obrigado, problema resolvido !

    Carniel

    Pablo Neruda gosta desta mensagem


    Conteúdo patrocinado


    [Resolvido]Corte parcial cupom não fiscal Epson TM20 Empty Re: [Resolvido]Corte parcial cupom não fiscal Epson TM20

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 11:16