Jump to content

dev botao

AcbrEtq usei o exemplo do help e não imprime


CARLOS GIBIM
Go to solution Solved by Daniel Simoes,
  • Este tópico foi criado há 1789 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 to comment
Share on other sites

  • Este tópico foi criado há 1789 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.