Ir para conteúdo
  • Cadastre-se

dev botao

AcbrEtq usei o exemplo do help e não imprime


Ver Solução Respondido por Daniel Simoes,
  • Este tópico foi criado há 1681 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Sr(s)e Sra(s), Boa tarde.

Estou com problema para imprimir etiqueta usando ACBREtq junto com a ELGIN L42 Pro.

Peguei o exemplo que está no help do acbr, utilizando xHarbour + minigui, já uso para emissão de NF-e, CF-e e MDF-e.

No exemplo que segue abaixo faz o avanço correto das etiquetas mas não imprime:

            delete file("c:\monitor\temp.txt")
            set defa to "c:\monitor"
            set printer to temp.txt
            set print on
            set console off
   
            ? 'ETQ.SetLimparMemoria("True")'
            ? 'ETQ.Ativar()'
            ? 'ETQ.IniciarEtiqueta()'
            ? 'ETQ.ImprimirTexto( 0, 2, 2, 2, 3 , 3 , "BISCOITO MARILAN RECH 335G")'
            ? 'ETQ.ImprimirTexto( 0, 2, 2, 1, 8, 3, "CHOC BRANCO")'
            ? 'ETQ.Imprimir( "1", "0" )'
            ? 'ETQ.FinalizarEtiqueta()'
            ? 'ETQ.Desativar()'
            
            set print off
            set printer to
            set console on
            set cursor on
            set defa to
   
            delete file("c:\monitor\sai.txt")
            delete file("c:\monitor\ent.txt")
         
            SET SAFETY OFF
            INKEY(1)   &&   era inkey(5)
            COPY FILE C:\monitor\TEMP.TXT TO C:\Monitor\ENT.TXT
           
            nConta := 0
            while !file("c:\monitor\sai.txt")
               ++nConta
               if nConta == 190000 .and. !file("c:\monitor\sai.txt")
                  if msgyesno('Nfe sem resposta !!! Tenta de Novo <S/N> ?','Tentar de novo')
                     nConta := 0
                  else
                     exit
                  endif
               endif
               inkey(1)
            enddo
          
            if !file("c:\monitor\sai.txt")
               msgexclamation('Erro ao Imprimir Etiqueta !!!','Atenção')
            endif

No arquivo LOG traz a resposta:

20/08/2019 16:04:25 - ETQ.SetLimparMemoria("True")
20/08/2019 16:04:25 - OK:
20/08/2019 16:04:25 - ETQ.Ativar()
20/08/2019 16:04:25 - OK:
20/08/2019 16:04:25 - ETQ.IniciarEtiqueta()
20/08/2019 16:04:25 - OK:
20/08/2019 16:04:25 - ETQ.ImprimirTexto( 0, 2, 2, 2, 3 , 3 , "BISCOITO MARILAN RECH 335G")
20/08/2019 16:04:25 - OK:
20/08/2019 16:04:25 - ETQ.ImprimirTexto( 0, 2, 2, 1, 8, 3, "CHOC BRANCO")
20/08/2019 16:04:25 - OK:
20/08/2019 16:04:25 - ETQ.Imprimir( "1", "0" )
20/08/2019 16:04:25 - OK:
20/08/2019 16:04:25 - ETQ.FinalizarEtiqueta()
20/08/2019 16:04:25 - OK:
20/08/2019 16:04:25 - ETQ.Desativar()
20/08/2019 16:04:25 - OK:

Dando a entender que está correto.

A configuração do AcbrMonitorPlus está da seguinte maneira:

image.png.d46d108af479fe91e7f39067b628aa4a.png

Não encontrei o problema.

Agradeço a ajuda.

Link para o comentário
Compartilhar em outros sites

  • Fundadores
  • Solution

Experimente inverter essas linhas

? 'ETQ.FinalizarEtiqueta()' 
? 'ETQ.Imprimir( "1", "0" )'

 

Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 1681 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.