Importar ACBrLibETQ para um projeto VB.net

[Boxpdv]

Pessoal, 
Sou novo aqui no ACBr.
Estou criando um projeto para impressão de etiquetas com código de barras. Porém não consigo importar a ACBrLibEtq para o meu projeto, está apresentano um dizendo que não está acessível ou que a dll não é compativel.
Alguem pode me ajudar?

Obrigado.
 

[Juliomar Marchetti]

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

Bom dia.

verifica se sua arquitetura é x86 ou x64

[Daniel Simoes]

Olá @Boxpdv, você seguiu as instruções desse tópico?

 

@antonio.carlos, tem alguma dica para VB.NET ?

 

[antonio.carlos]

1 hora atrás, Boxpdv disse:

Pessoal, 
Sou novo aqui no ACBr.
Estou criando um projeto para impressão de etiquetas com código de barras. Porém não consigo importar a ACBrLibEtq para o meu projeto, está apresentano um dizendo que não está acessível ou que a dll não é compativel.
Alguem pode me ajudar?

Obrigado.
 

Você pode utilizar as classes que foram escritas para o C#.. 
Elas estão no SVN..
http://svn.code.sf.net/p/acbr/code/trunk2/Projetos/ACBrLib/Demos/C%23/ETQ/Imports/

Feito isso, só seguir o padrão, ao compilar o .exe, precisa distribuir ACBrLib corretamente..
ACBrLibETQ32 deve estar na pasta ACBrLib/86 e ACBrLibETQ64 deve estar na pasta ACBrLib/64..

Outro detalhe, as classes estão no SVN, usam a convenção de chamada em cdelc, veja se não esta distribuindo as ACBrLib em stdcall, isso pode ocorrer erros também.

[Boxpdv]

Já consegui instanciar a dll usando o <DllImport.
O problema agora é imprimir a etiqueta. Passa por todos os métodos, mas a impressora não imprime.
Vou postar aqui um trecho do código:

 

        ' Inicializa a biblioteca ACBrLibETQ
        Dim ret As Integer = ETQ_Inicializar(String.Empty, String.Empty)
        If ret <> 0 Then
            Console.WriteLine("Erro ao inicializar a biblioteca ACBrLibETQ")
            Return
        End If

        ' Configura a impressora
        ETQ_ConfigGravarValor("ETQ", "Zebra", "1") ' 0 = Impressora Padrão
        ETQ_ConfigGravarValor("ETQ", "Temperatura", "10")
        ETQ_ConfigGravarValor("ETQ", "Velocidade", "5")

        ' Ativa a impressora
        ret = ETQ_Ativar()
        If ret <> 0 Then
            Console.WriteLine("Erro ao ativar a impressora")
            Return
        End If

        ' Configura a etiqueta de 7x4 cm
        Dim larguraEtiqueta As Integer = 700 ' 7 cm
        Dim alturaEtiqueta As Integer = 400 ' 4 cm

        ' Primeira linha: * * * SAMECH * * * centralizado
        Dim texto1 As String = "* * * SAMECH * * *"
        Dim posXTexto1 As Integer = (larguraEtiqueta - (texto1.Length * 12)) \ 2 ' Aproximadamente centralizado
        ETQ_ImprimirTexto(0, 1, 1, 1, 10, posXTexto1, texto1, 0, False)

        ' Segunda linha: Código: 12345.BN.VED alinhado à esquerda
        Dim texto2 As String = "Código: 12345.BN.VED"
        ETQ_ImprimirTexto(0, 1, 1, 1, 50, 10, texto2, 0, False)

        ' Terceira linha: Descr.: XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX alinhado à esquerda e quebra de linha
        Dim texto3 As String = "Descr.: XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
        ETQ_ImprimirTexto(0, 1, 1, 1, 90, 10, texto3.Substring(0, Math.Min(texto3.Length, 50)), 0, False)
        If texto3.Length > 50 Then
            ETQ_ImprimirTexto(0, 1, 1, 1, 130, 10, texto3.Substring(50), 0, False)
        End If

        ' Quarta linha: Código de barras EAN-13
        ETQ_ImprimirBarras(0, 2, 2, 2, 180, 10, "123456789012", 60, 2, True)

        ' Imprime a etiqueta
        ETQ_Imprimir(1, 0)

        ' Desativa a impressora
        ETQ_Desativar()

        ' Finaliza a biblioteca
        ETQ_Finalizar()

 

[Diego Foliene]

39 minutes ago, Boxpdv said:

Já consegui instanciar a dll usando o <DllImport.
O problema agora é imprimir a etiqueta. Passa por todos os métodos, mas a impressora não imprime.
Vou postar aqui um trecho do código:

 

        ' Inicializa a biblioteca ACBrLibETQ
        Dim ret As Integer = ETQ_Inicializar(String.Empty, String.Empty)
        If ret <> 0 Then
            Console.WriteLine("Erro ao inicializar a biblioteca ACBrLibETQ")
            Return
        End If

        ' Configura a impressora
        ETQ_ConfigGravarValor("ETQ", "Zebra", "1") ' 0 = Impressora Padrão
        ETQ_ConfigGravarValor("ETQ", "Temperatura", "10")
        ETQ_ConfigGravarValor("ETQ", "Velocidade", "5")

        ' Ativa a impressora
        ret = ETQ_Ativar()
        If ret <> 0 Then
            Console.WriteLine("Erro ao ativar a impressora")
            Return
        End If

        ' Configura a etiqueta de 7x4 cm
        Dim larguraEtiqueta As Integer = 700 ' 7 cm
        Dim alturaEtiqueta As Integer = 400 ' 4 cm

        ' Primeira linha: * * * SAMECH * * * centralizado
        Dim texto1 As String = "* * * SAMECH * * *"
        Dim posXTexto1 As Integer = (larguraEtiqueta - (texto1.Length * 12)) \ 2 ' Aproximadamente centralizado
        ETQ_ImprimirTexto(0, 1, 1, 1, 10, posXTexto1, texto1, 0, False)

        ' Segunda linha: Código: 12345.BN.VED alinhado à esquerda
        Dim texto2 As String = "Código: 12345.BN.VED"
        ETQ_ImprimirTexto(0, 1, 1, 1, 50, 10, texto2, 0, False)

        ' Terceira linha: Descr.: XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX alinhado à esquerda e quebra de linha
        Dim texto3 As String = "Descr.: XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
        ETQ_ImprimirTexto(0, 1, 1, 1, 90, 10, texto3.Substring(0, Math.Min(texto3.Length, 50)), 0, False)
        If texto3.Length > 50 Then
            ETQ_ImprimirTexto(0, 1, 1, 1, 130, 10, texto3.Substring(50), 0, False)
        End If

        ' Quarta linha: Código de barras EAN-13
        ETQ_ImprimirBarras(0, 2, 2, 2, 180, 10, "123456789012", 60, 2, True)

        ' Imprime a etiqueta
        ETQ_Imprimir(1, 0)

        ' Desativa a impressora
        ETQ_Desativar()

        ' Finaliza a biblioteca
        ETQ_Finalizar()

 

Bom dia!

Por favor, faça um teste usando ETQ_InicializarEtiqueta logo após o ETQ_Ativar e também o ETQ_FinalizarEtiqueta antes do ETQ_Imprimir.

[Daniel InfoCotidiano]

@Boxpdv
Complementando o que o @Diego Foliene
Você configurou a porta da impressora?
Ele chega gerar o log da acbrlibETQ?

 

[Boxpdv]

Não configurei.
Penso que USB basta mencionar o nome da impressora.
Não gerou log, somente a ACBrLib.ini

 

[Diego Foliene]

2 hours ago, Boxpdv said:

Não configurei.
Penso que USB basta mencionar o nome da impressora.
Não gerou log, somente a ACBrLib.ini

 

Por favor, faça um teste com os comandos conforme mencionei acima.

[Boxpdv]

Daniel,
Fiz Ativar antes de inicializar, mas retornou o erro -1 no ativar

[Daniel InfoCotidiano]

Ativar, só vai fazer quando for imprimir.
o -1 significa que a lib Não foi inicializada corretamente

Entao vc inicia:

Dim ret As Integer = ETQ_Inicializar("acbrlib.ini", String.Empty)

Pode configurar
Depois vc ativa para mandar imprimir

Este é uma parte do exemplo em python so p vc abstrair

 

[Boxpdv]

ok.
Vou alterar aqui.