AcbrEtq usei o exemplo do help e não imprime

[CARLOS GIBIM]

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:

Não encontrei o problema.

Agradeço a ajuda.

[Felipe E. Resende Mesquita]

Tópico movido para a área do SAC, para que o SLA de respostas seja considerado

[Daniel Simoes]

Experimente inverter essas linhas

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

 

[José M. S. Junior]

Se o problema persistir, experimente com essas configurações:

[CARLOS GIBIM]

4 horas atrás, Daniel Simoes disse:

Experimente inverter essas linhas

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

 

Daniel, funcionou perfeitamente.

Muito obrigado pela atenção.

[José M. S. Junior]

Obrigado pelo retorno, será corrigido no manual.

[Daniel Simoes]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.