ARGOX 214PLUS

 Tópico anterior Próximo tópico Novo tópico

ARGOX 214PLUS

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#488619 - 29/04/2019 13:49:58

MFLAVIO
CAMPINAS
Cadast. em:Maio/2009


Ola Pessoal Boa Tarde tudo bem?
Nunca usei esta impressora
nas pesquisa que fiz, preciso adaptar o seu sistema para usar a DLL WINPPLA mais não estou achando onde baixar essas bibliotecas
alguém que já trabalhou com essas argox poderia me ajudar com isso?

Deus e o maior dos Programadores, ele criou tudo em liguagem visual
                                           .... e viu Deus que era bom


#488647 - 30/04/2019 13:27:08

MFLAVIO
CAMPINAS
Cadast. em:Maio/2009


Citação:
:
Ola Pessoal Boa Tarde tudo bem?
Nunca usei esta impressora
nas pesquisa que fiz, preciso adaptar o seu sistema para usar a DLL WINPPLA mais não estou achando onde baixar essas bibliotecas
alguém que já trabalhou com essas argox poderia me ajudar com isso?


Pessoal eu Achei as bibliotecas mais não estou conseguindo conexão via USB com a IMpressora
alguém tem algum exemplo de conexão  via USB


Deus e o maior dos Programadores, ele criou tudo em liguagem visual
                                           .... e viu Deus que era bom


#488649 - 30/04/2019 15:40:04

JONESPARIS
ERECHIM
Cadast. em:Fevereiro/2006


Olá
A impressão nestas Impressoras, exige que você envie comandos diretamente para ela.
Faça a Instalação normal e realize o compartilhamento do dispositivo.

E Este é um exemplo de como funciona no código Fonte:
Open "localhost\compartilhamento" For Output As #1
                
                
                    Print #1, Chr$(2) & "L" & vbCr
                    Print #1, Chr$(2) & "H10"
                    Print #1, Chr$(2) & "D11"
                    Print #1, Chr$(2) & "1A5203000200050" & "900000000003361" 'Código
                    Print #1, Chr$(2) & "131100000800050" & "PREÇO R$ : "
                    Print #1, Chr$(2) & "131100001000050" & "373,00"
                    Print #1, Chr$(2) & "131100001200050" & "Descrição"
                    Print #1, Chr$(2) & "Q0001"
                    Print #1, "E"
                  
Close #1


Jones Paris

#488652 - 30/04/2019 17:30:36

MFLAVIO
CAMPINAS
Cadast. em:Maio/2009


Citação:
:
Olá
A impressão nestas Impressoras, exige que você envie comandos diretamente para ela.
Faça a Instalação normal e realize o compartilhamento do dispositivo.

E Este é um exemplo de como funciona no código Fonte:
Open "localhostcompartilhamento" For Output As #1
                
                
                    Print #1, Chr$(2) & "L" & vbCr
                    Print #1, Chr$(2) & "H10"
                    Print #1, Chr$(2) & "D11"
                    Print #1, Chr$(2) & "1A5203000200050" & "900000000003361" 'Código
                    Print #1, Chr$(2) & "131100000800050" & "PREÇO R$ : "
                    Print #1, Chr$(2) & "131100001000050" & "373,00"
                    Print #1, Chr$(2) & "131100001200050" & "Descrição"
                    Print #1, Chr$(2) & "Q0001"
                    Print #1, "E"
                  
Close #1


não tem como imprimir direto para a USB?
fica mais fácil a manutenção, e suporte remoto


Deus e o maior dos Programadores, ele criou tudo em liguagem visual
                                           .... e viu Deus que era bom


#488655 - 30/04/2019 17:53:07

JONESPARIS
ERECHIM
Cadast. em:Fevereiro/2006


Citação:
não tem como imprimir direto para a USB?
fica mais fácil a manutenção, e suporte remoto


Desconheço

Segue o Manual:
https://www.bztech.com.br/arquivos/manual-argox-os-214-plus.pdf


Jones Paris

#488677 - 02/05/2019 09:52:27

FOXMAN
BARRETOS
Cadast. em:Janeiro/2001


Membro da equipe
Pesquise por RAWPRINTERHELP




Grupo DotNet.Br no FaceBook

Grupo WhatsDev



#488678 - 02/05/2019 09:58:39

MFLAVIO
CAMPINAS
Cadast. em:Maio/2009


Citação:
:
Pesquise por RAWPRINTERHELP


Ola FoxMan tudo bem?
eu tentei por Raw usa o Sppoler né, e só enviar um arquivo
eu gerei o arquivos pelo APP da argox e até consegui enviar para a impressora, mais não consigo atualizar os Códigos de barras na etiqueta
os Label tudo bem, agora os Código de barras não vai

Deus e o maior dos Programadores, ele criou tudo em liguagem visual
                                           .... e viu Deus que era bom


#488717 - 06/05/2019 09:25:01

FOXMAN
BARRETOS
Cadast. em:Janeiro/2001


Membro da equipe
Citação:
:
:
Pesquise por RAWPRINTERHELP


Ola FoxMan tudo bem?
eu tentei por Raw usa o Sppoler né, e só enviar um arquivo
eu gerei o arquivos pelo APP da argox e até consegui enviar para a impressora, mais não consigo atualizar os Códigos de barras na etiqueta
os Label tudo bem, agora os Código de barras não vai


Vou pegar um exemplo aqui no meu sistema e te passo como deverá montar a etiqueta.



Grupo DotNet.Br no FaceBook

Grupo WhatsDev



#488718 - 06/05/2019 09:56:59

FOXMAN
BARRETOS
Cadast. em:Janeiro/2001


Membro da equipe
Citação:
:
Vou pegar um exemplo aqui no meu sistema e te passo como deverá montar a etiqueta.



     Dim pText As New StringBuilder
            Dim DESCRICAO_PRODUTO As String

            If Descricao.Length > 30 Then
                If impressora.ToUpper().Contains("GC420T") Then
                    DESCRICAO_PRODUTO = "A788,160,2,4,1,1,N," & Chr(34) & Descricao & Chr(34)
                ElseIf impressora.ToUpper().Contains("ARGOX") Then
                    DESCRICAO_PRODUTO = "131100000720007" & Descricao
                End If
            Else
                If impressora.ToUpper().Contains("GC420T") Then
                    DESCRICAO_PRODUTO = "A788,160,2,3,2,2,N," & Chr(34) & Descricao & Chr(34)
                ElseIf impressora.ToUpper().Contains("ARGOX") Then
                    DESCRICAO_PRODUTO = "1921A0800710007" & Descricao
                End If
            End If

            If impressora.ToUpper().Contains("GC420T") Then
                pText.AppendLine("N")
                pText.AppendLine("I8,A,001")
                pText.AppendLine("Q240,024")
                pText.AppendLine("q863")
                pText.AppendLine("rN")
                pText.AppendLine("S3")
                pText.AppendLine("D7")
                pText.AppendLine("ZT")
                pText.AppendLine("JF")
                pText.AppendLine("O")
                pText.AppendLine("R32,0")
                pText.AppendLine("f100")
                pText.AppendLine("N")
                pText.AppendLine("B775,113,2,E30,3,6,97,B," & Chr(34) & CodBarras.Substring(0, CodBarras.Length - 1) & Chr(34))
                pText.AppendLine("A449,104,2,4,2,4,N," & Chr(34) & FormatCurrency(PrecoUnitario, 2) & Chr(34))
                pText.AppendLine(DESCRICAO_PRODUTO)
                pText.AppendLine("LO19,169,763,2")
                pText.AppendLine("A782,195,2,4,1,1,N," & Chr(34) & EmpresaAtiva & Chr(34))
                pText.AppendLine("P1")
            ElseIf impressora.ToUpper().Contains("ARGOX") Then
                pText.AppendLine(Chr(2) & "n")
                pText.AppendLine(Chr(2) & "M0500")
                pText.AppendLine(Chr(2) & "O0220")
                pText.AppendLine(Chr(2) & "V0")
                pText.AppendLine(Chr(2) & "f220")
                pText.AppendLine("D")
                pText.AppendLine(Chr(2) & "L")
                pText.AppendLine("D11")
                pText.AppendLine("A2")
                pText.AppendLine("1911A0800930068" & EmpresaAtiva)
                pText.AppendLine("1X1100000890007L378001")
                pText.AppendLine("1X1100000890007L378001")
                pText.AppendLine(DESCRICAO_PRODUTO)
                pText.AppendLine("1921A1800290168" & FormatCurrency(PrecoUnitario, 2))
                pText.AppendLine("1F6304400110008" & CodBarras.Substring(0, CodBarras.Length - 1))
                pText.AppendLine("Q0001")
                pText.AppendLine("E")
            End If

            RawPrinter.SendToPrinter(impressora, pText.ToString, impressora)



Grupo DotNet.Br no FaceBook

Grupo WhatsDev



#488724 - 06/05/2019 11:12:26

JOHNSTEVE
COSMOPOLIS-SP
Cadast. em:Janeiro/2016


Citação:
:
:
Vou pegar um exemplo aqui no meu sistema e te passo como deverá montar a etiqueta.



     Dim pText As New StringBuilder
            Dim DESCRICAO_PRODUTO As String

            If Descricao.Length > 30 Then
                If impressora.ToUpper().Contains("GC420T") Then
                    DESCRICAO_PRODUTO = "A788,160,2,4,1,1,N," & Chr(34) & Descricao & Chr(34)
                ElseIf impressora.ToUpper().Contains("ARGOX") Then
                    DESCRICAO_PRODUTO = "131100000720007" & Descricao
                End If
            Else
                If impressora.ToUpper().Contains("GC420T") Then
                    DESCRICAO_PRODUTO = "A788,160,2,3,2,2,N," & Chr(34) & Descricao & Chr(34)
                ElseIf impressora.ToUpper().Contains("ARGOX") Then
                    DESCRICAO_PRODUTO = "1921A0800710007" & Descricao
                End If
            End If

            If impressora.ToUpper().Contains("GC420T") Then
                pText.AppendLine("N")
                pText.AppendLine("I8,A,001")
                pText.AppendLine("Q240,024")
                pText.AppendLine("q863")
                pText.AppendLine("rN")
                pText.AppendLine("S3")
                pText.AppendLine("D7")
                pText.AppendLine("ZT")
                pText.AppendLine("JF")
                pText.AppendLine("O")
                pText.AppendLine("R32,0")
                pText.AppendLine("f100")
                pText.AppendLine("N")
                pText.AppendLine("B775,113,2,E30,3,6,97,B," & Chr(34) & CodBarras.Substring(0, CodBarras.Length - 1) & Chr(34))
                pText.AppendLine("A449,104,2,4,2,4,N," & Chr(34) & FormatCurrency(PrecoUnitario, 2) & Chr(34))
                pText.AppendLine(DESCRICAO_PRODUTO)
                pText.AppendLine("LO19,169,763,2")
                pText.AppendLine("A782,195,2,4,1,1,N," & Chr(34) & EmpresaAtiva & Chr(34))
                pText.AppendLine("P1")
            ElseIf impressora.ToUpper().Contains("ARGOX") Then
                pText.AppendLine(Chr(2) & "n")
                pText.AppendLine(Chr(2) & "M0500")
                pText.AppendLine(Chr(2) & "O0220")
                pText.AppendLine(Chr(2) & "V0")
                pText.AppendLine(Chr(2) & "f220")
                pText.AppendLine("D")
                pText.AppendLine(Chr(2) & "L")
                pText.AppendLine("D11")
                pText.AppendLine("A2")
                pText.AppendLine("1911A0800930068" & EmpresaAtiva)
                pText.AppendLine("1X1100000890007L378001")
                pText.AppendLine("1X1100000890007L378001")
                pText.AppendLine(DESCRICAO_PRODUTO)
                pText.AppendLine("1921A1800290168" & FormatCurrency(PrecoUnitario, 2))
                pText.AppendLine("1F6304400110008" & CodBarras.Substring(0, CodBarras.Length - 1))
                pText.AppendLine("Q0001")
                pText.AppendLine("E")
            End If

            RawPrinter.SendToPrinter(impressora, pText.ToString, impressora)



showww de bola brother

vc sabe fazer para sair nas impressões os caracteres especiais ?
pq eu estou usando essa função ai parecido, estou usando na impressora ELGIN L-42
so não consigo imprimir   os acentos, Ç   (é, ú, ç, ã, )  não sai na impressao, fica o espaço em branco.





#488762 - 07/05/2019 08:36:41

FOXMAN
BARRETOS
Cadast. em:Janeiro/2001


Membro da equipe
Citação:
:
showww de bola brother

vc sabe fazer para sair nas impressões os caracteres especiais ?
pq eu estou usando essa função ai parecido, estou usando na impressora ELGIN L-42
so não consigo imprimir   os acentos, Ç   (é, ú, ç, ã, )  não sai na impressao, fica o espaço em branco.


Tem que dar uma olhada no CODEPAGE da impressora.





Grupo DotNet.Br no FaceBook

Grupo WhatsDev



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por MFLAVIO em 23/07/2019 13:55:00