Impressora ELGIN L42 PRO

[ELCIO PAULI]

Olá Pessoal.

Um Cliente meu comprou esta Impressora. Já tenho a LB100 e achei que funcionaria com a mesma rotina. Não funcionou.

Baixei os Arquivos ACBrLibETQDemo-0.1.1.522 par VB6 mas da um erro:

ETQOrientacao e ETQBarraExibeCodigo.becSIM

Alguem montou o Exemplo em VB que possa disponibilizar-me.

OU se alguem tiver o exemplo em VB.Net ou C# também aceito.

Muito Obrigado.

Elcio Pauli

Cuiabá-MT

[Gabriel Sartori]

On 8/24/2022 at 8:03 AM, ELCIO PAULI said:

Olá Pessoal.

Um Cliente meu comprou esta Impressora. Já tenho a LB100 e achei que funcionaria com a mesma rotina. Não funcionou.

Baixei os Arquivos ACBrLibETQDemo-0.1.1.522 par VB6 mas da um erro:

ETQOrientacao e ETQBarraExibeCodigo.becSIM

Alguem montou o Exemplo em VB que possa disponibilizar-me.

OU se alguem tiver o exemplo em VB.Net ou C# também aceito.

Muito Obrigado.

Elcio Pauli

Cuiabá-MT

Elcio estou trabalhando num exmplo aqui. vu te passar. ja ta com a lib e tudo, 

Demo.rar

[ELCIO PAULI]

Obrigado Gabriel.

No arquivo Demo.rar não constam os arquivos: ACBrETQUtils, ACBrETQ.cls e ACBrComum.bas

Importei dos que já havia criado copiados anteriormente.

Persiste o erro: Public Sub ImprimirTexto

Podemos falar?

[email protected]

Demo_ret.rar

[Gabriel Sartori]

1 hour ago, ELCIO PAULI said:

Obrigado Gabriel.

No arquivo Demo.rar não constam os arquivos: ACBrETQUtils, ACBrETQ.cls e ACBrComum.bas

Importei dos que já havia criado copiados anteriormente.

Persiste o erro: Public Sub ImprimirTexto

Podemos falar?

[email protected]

Demo_ret.rar 17.39 kB · 0 downloads

poderia posta como esta seu codigo?

o codigo da função é este, não esta faltando parametro?

Public Sub ImprimirTexto(ByVal orientacao As ETQOrientacao, _
                         ByVal fonte As Long, _
                         ByVal MultiplicadorH As Long, _
                         ByVal MultiplicadorV As Long, _
                         ByVal Vertical As Long, _
                         ByVal Horizontal As Long, _
                         ByVal eTexto As String, _
                         Optional ByVal SubFonte As Long = 0, _
                         Optional ByVal ImprimirReverso As Boolean = False)

 

[ELCIO PAULI]

Obrigado Gabriel.

No arquivo Demo.rar não constam os arquivos: ACBrETQUtils, ACBrETQ.cls e ACBrComum.bas

Importei dos que já havia criado copiados anteriormente.

Persiste o erro: Public Sub ImprimirTexto

Podemos falar?

[email protected]

Mandei o arquivo Demo_ret Com os arquivos que construi a partir do download do exemplo.

Abra que esta com o arquivo .bas e .cls

O erro está na chamada da Função. E como se esta função =>  

Public Sub ImprimirTexto(ByVal orientacao As ETQOrientacao

Não existisse.

Abraços