QRCODE IMPRIMIR DIRETO NA PORTA COMANDOS ESC/POS
Pessoal, se alguém puder me ajudar, estou me debatendo com a impressora SI300 da Sweda, tentando imprimir um QRCode de um cupom fiscal eletronico, ocorre que a impressora simplesmente imprime alguns textos, mas nada do bendito QR Code, o pessoal da Sweda já até desisti, pelo visto nem eles sabem, andei fuçando na internet, lendo manuais da EPSON, percebi que os comandos são os mesmos desta sweda, SE ALGUEM conseguiu fazer a impressão diretamente na porta serial e puder ajudar agradecemos (EU e MUITOS) que devem estar quebrando a cabeça.
Segue o código que estou usando:
Segue o código que estou usando:
Dim StrCodigo as String
StrCodigo = [Ô]CFe35700153485215000106599000032240000049527319|20150714164608|100.00||pLptLMeLB50r7WPs178odovBcSan4KfTOJ58bwbW1WVRiDVKzjDi2xpCxokJtT+17V6OIkmBF2/AoAGBv6H7GC2rjsZt7tDPeCnlS8GmTylKu7HSivnpmNCpbos8hkvVz66/xWODKBRNVI+PVdyTmUYXOkguQWCTJydaRYStpRDSNT6aN8Gnm8IOOLUSkizlP6q3DMWK3+pl0wdaL/yS72S5kPuzohxn0bnTO9PS6aJQvjqq45mCMrUPn7hwUvLA+mgYNaekFRcNFfj59huiBuiZluFxDbcYANAySPV+N0cVvfmShE888ZHrPANHoYUf6DSm0r/WANUH72lISuVLuw==[Ô]
Dim store_len As Integer
store_len = Len(StrCodigo) + 3
Dim store_pL As Byte
store_pL = CByte(store_len Mod 256)
Dim store_pH As Byte
store_pH = CByte(store_len / 256)
Dim ModeloQR As String
ModeloQR = Chr(29) & Chr(40) & Chr(107) & Chr(4) & Chr(0) & Chr(49) & Chr(65) & Chr(50) & Chr(0)
Dim TamanhoQR As String
TamanhoQR = Chr(29) & Chr(40) & Chr(107) & Chr(3) & Chr(0) & Chr(49) & Chr(67) & Chr(3)
Dim NivelCorrecaoQR As String
NivelCorrecaoQR = Chr(29) & Chr(40) & Chr(107) & Chr(3) & Chr(0) & Chr(49) & Chr(69) & Chr(48)
Dim DadosQR As String
DadosQR = Chr(29) & Chr(40) & Chr(107) & store_pL & store_pH & Chr(49) & Chr(80) & StrCodigo
Dim ImprimeQR As String
ImprimeQR = Chr(29) & Chr(40) & Chr(107) & Chr(3) & Chr(0) & Chr(49) & Chr(81) & Chr(48)
[ô]ENVIA DIRETO NA PORTA - ComImpressora é o componente MSComm
ComImpressoraNF.Output = ModeloQR
ComImpressoraNF.Output = TamanhoQR
ComImpressoraNF.Output = NivelCorrecaoQR
ComImpressoraNF.Output = DadosQR
ComImpressoraNF.Output = ImprimeQR
MARCIOHR,
Por favor, pode der uma olhadinha aqui:
======================================================================
GERAR E IMPRIMIR QRCODE
http://www.vbmania.com.br/index.php?modulo=forum&metodo=abrir&id=441106&pagina=1
======================================================================
Você pode gerar um exemplo d código para colocar aqui no VBMania? Obrigado.
[][ô]s,
Tunusat.
Por favor, pode der uma olhadinha aqui:
======================================================================
GERAR E IMPRIMIR QRCODE
http://www.vbmania.com.br/index.php?modulo=forum&metodo=abrir&id=441106&pagina=1
======================================================================
Você pode gerar um exemplo d código para colocar aqui no VBMania? Obrigado.
[][ô]s,
Tunusat.
Eu cheguei a ver esse que você me indicou, ele cria o QRCode pelo .NET usando um componente, mas no caso preciso fazer a impressão do QRCode diretamente na impressora não fiscal usando os comandos ESC/POS e em VB6, conforme código que coloquei.
Sobre a postagem de algumas dicas, tenho sim, até por certa morosidade e correria não tive tempo, você me perguntando fui tentar postar uma dica, mas não encontrei um botão do tipo [Ô]postar/enviar dica ou código fonte[Ô] no site, vou dar mais uma fuçada no site pra ver se encontro.
Obrigado
Sobre a postagem de algumas dicas, tenho sim, até por certa morosidade e correria não tive tempo, você me perguntando fui tentar postar uma dica, mas não encontrei um botão do tipo [Ô]postar/enviar dica ou código fonte[Ô] no site, vou dar mais uma fuçada no site pra ver se encontro.
Obrigado
MARCIOHR,
Ops Marcio ... desculpe ... o tópico está marcando [Ô]VB.NET[Ô].
Eu acho que pelo VB6 somente com componente, pois o VB6 é bem mais antigo que o QRCode e não tem suporte desde antes de 2002.
Sugestão: Crie um componente seu no VB.Net e use este componente no VB6.
================================================
Print from VB to EPSON Printer using ESC/POS (Resolved)
http://www.vbforums.com/showthread.php?299496-Print-from-VB-to-EPSON-Printer-using-ESC-POS-(Resolved)
================================================
Line Thermal Printer ESC/POS Command Specifications
http://www.diebold.com.br/mecaf/drivers/ESCPOS_Command_Thermal.pdf
================================================
[][ô]s,
Tunusat.
Ops Marcio ... desculpe ... o tópico está marcando [Ô]VB.NET[Ô].
Eu acho que pelo VB6 somente com componente, pois o VB6 é bem mais antigo que o QRCode e não tem suporte desde antes de 2002.
Sugestão: Crie um componente seu no VB.Net e use este componente no VB6.
================================================
Print from VB to EPSON Printer using ESC/POS (Resolved)
http://www.vbforums.com/showthread.php?299496-Print-from-VB-to-EPSON-Printer-using-ESC-POS-(Resolved)
================================================
Line Thermal Printer ESC/POS Command Specifications
http://www.diebold.com.br/mecaf/drivers/ESCPOS_Command_Thermal.pdf
================================================
[][ô]s,
Tunusat.
Engraçado, havia colocado como VB/VBA no momento de postar :/
é então sobre a criação pelo .NET até pode ser uma opção, mas teria que adaptar isso, meu sistema é de frente de loja pra supermercados e infelizmente a realidade é cruel por aÃ, muitos equipamentos que choram pra rodar o Windows XP, quando sobrar somente o S@T no mercado, acabando assim os ECFs, com certeza migrarei todo o código pra .NET.
A impressora gera o QR code via comando ESC/POS, como não tenho muita experiêcia com esses comandos, estou sofrendo um pouco, mas faz parte! :)
Obrigado pelos links, já havia dado uma fuçada neles [Ô]googlando[Ô] rsrs, consigo enviar os comandos de impressão de texto normalmente, abrir gaveta, guilhotina, tamanhos de fontes, etc, meu problema agora é fazer o [Ô]maledito[Ô] QR Code, acho que estou perto, mas vou tentando...
Abraços
é então sobre a criação pelo .NET até pode ser uma opção, mas teria que adaptar isso, meu sistema é de frente de loja pra supermercados e infelizmente a realidade é cruel por aÃ, muitos equipamentos que choram pra rodar o Windows XP, quando sobrar somente o S@T no mercado, acabando assim os ECFs, com certeza migrarei todo o código pra .NET.
A impressora gera o QR code via comando ESC/POS, como não tenho muita experiêcia com esses comandos, estou sofrendo um pouco, mas faz parte! :)
Obrigado pelos links, já havia dado uma fuçada neles [Ô]googlando[Ô] rsrs, consigo enviar os comandos de impressão de texto normalmente, abrir gaveta, guilhotina, tamanhos de fontes, etc, meu problema agora é fazer o [Ô]maledito[Ô] QR Code, acho que estou perto, mas vou tentando...
Abraços
MARCIOHR,
Nussa! Se apanham para rodar Windows XP, então devem ser anteriores ao [Ô]Pentium[Ô]! KKKKK! Lembrando que o Windows XP não terá mais suporte de segurança em breve...
...então, acho que que vai ser [Ô]osso[Ô] achar em VB6, se existir alguma...
...mas experimente fazer uma DLL no Visual Studio 2013 Express (como no exemplo do Macoratti abaixo) e gere uma DLL (estilo caixa-preta) para ser usada dentro do VB6. Acho que não vai ficar tão pesada assim.
============================================================
VB .NET - Gerando, Salvando e Lendo QRCode
http://www.macoratti.net/14/10/vbn_qrcd1.htm
============================================================
Open Source QRCode Library
http://www.codeproject.com/Articles/20574/Open-Source-QRCode-Library
============================================================
Simple C/C++ QRCode Library
http://www.codeproject.com/Articles/593591/Simple-C-Cplusplus-QRCode-Library
============================================================
Desculpe não poder ajudar mais que isso.
[][ô]s,
Tunusat.
Nussa! Se apanham para rodar Windows XP, então devem ser anteriores ao [Ô]Pentium[Ô]! KKKKK! Lembrando que o Windows XP não terá mais suporte de segurança em breve...
...então, acho que que vai ser [Ô]osso[Ô] achar em VB6, se existir alguma...
...mas experimente fazer uma DLL no Visual Studio 2013 Express (como no exemplo do Macoratti abaixo) e gere uma DLL (estilo caixa-preta) para ser usada dentro do VB6. Acho que não vai ficar tão pesada assim.
============================================================
VB .NET - Gerando, Salvando e Lendo QRCode
http://www.macoratti.net/14/10/vbn_qrcd1.htm
============================================================
Open Source QRCode Library
http://www.codeproject.com/Articles/20574/Open-Source-QRCode-Library
============================================================
Simple C/C++ QRCode Library
http://www.codeproject.com/Articles/593591/Simple-C-Cplusplus-QRCode-Library
============================================================
Desculpe não poder ajudar mais que isso.
[][ô]s,
Tunusat.
O problema do qrcode não é gerar, é imprimir.
NILSONTRES,
Mas pera um pouquinho aê...
... existe um [Ô]True Type Font[Ô] para isso? Se você tiver o TTF consegue imprimir?!?
=============================================================
Fontes de Código de Barras
- codigo QR
http://www.mgitech.com.br/blog/bid/111701/Fontes-para-criar-c-digo-de-barras
=============================================================
Download Fontes de Códigos de Barras no formato Windows True Type
Código QR CODE
http://www.gbnet.com.br/blog/index.php/2013/03/download-fontes-de-cdigos-de-barras-no-formato-windows-true-type/
http://www.gbnet.com.br/v2/codigo_de_barras_fontes_QRCODE.html
=============================================================
QR Code Font and Encoder for Windows
http://download.cnet.com/QR-Code-Font-and-Encoder-for-Windows/3000-2190_4-10910467.html
=============================================================
QR Code Barcode Fonts
http://www.barcoderesource.com/qrcodebarcode.shtml
=============================================================
QR Code Fonts
http://blog.qr4.nl/post/QR-Code-Fonts.aspx
=============================================================
Download Qr Code Fonts Software
http://qr-code-fonts.winsite.com/
=============================================================
QR Code Fonts & Encoder 5
http://www.morovia.com/fonts/qrcode/
=============================================================
[][ô]s,
Tunusat.
Mas pera um pouquinho aê...
... existe um [Ô]True Type Font[Ô] para isso? Se você tiver o TTF consegue imprimir?!?
=============================================================
Fontes de Código de Barras
- codigo QR
http://www.mgitech.com.br/blog/bid/111701/Fontes-para-criar-c-digo-de-barras
=============================================================
Download Fontes de Códigos de Barras no formato Windows True Type
Código QR CODE
http://www.gbnet.com.br/blog/index.php/2013/03/download-fontes-de-cdigos-de-barras-no-formato-windows-true-type/
http://www.gbnet.com.br/v2/codigo_de_barras_fontes_QRCODE.html
=============================================================
QR Code Font and Encoder for Windows
http://download.cnet.com/QR-Code-Font-and-Encoder-for-Windows/3000-2190_4-10910467.html
=============================================================
QR Code Barcode Fonts
http://www.barcoderesource.com/qrcodebarcode.shtml
=============================================================
QR Code Fonts
http://blog.qr4.nl/post/QR-Code-Fonts.aspx
=============================================================
Download Qr Code Fonts Software
http://qr-code-fonts.winsite.com/
=============================================================
QR Code Fonts & Encoder 5
http://www.morovia.com/fonts/qrcode/
=============================================================
[][ô]s,
Tunusat.
Pelo menos no meu caso, a dificuldade era a seguinte:
Esses controles para gerar qrcode eles geram uma imagem e para imprimir imagem apenas impressoras jato de tinta, as termicas que meus clientes tinham
não imprimim, então não resolve. Por isso acabei me amarrando na dr700 da daruma, pelo menos por enquanto, fora a praticidade que ela te da
para imprimir os cupons do SATs que é um pé no...
Há, e mais um detalhe, não basta apenas imprimir o qrcode tem uma questão de ajustes de tamanho.
Esses controles para gerar qrcode eles geram uma imagem e para imprimir imagem apenas impressoras jato de tinta, as termicas que meus clientes tinham
não imprimim, então não resolve. Por isso acabei me amarrando na dr700 da daruma, pelo menos por enquanto, fora a praticidade que ela te da
para imprimir os cupons do SATs que é um pé no...
Há, e mais um detalhe, não basta apenas imprimir o qrcode tem uma questão de ajustes de tamanho.
é isso mesmo, vou procurar alternativas com outras impressoras e tb procurar usar a DLL, agora que eles estão desenvolvendo uma pra rodar no VB6, ainda tem muito VB6 no mercado por ai, prefiro, claro, programar no VB.NET, mas por enquanto ainda os equipamentos não dão conta.
Muito obrigado pessoal!!
Grande abraço!!!
Muito obrigado pessoal!!
Grande abraço!!!
Tópico encerrado , respostas não são mais permitidas