Linha Microsiga Protheus

Árvore de páginas

Instalalção de impressora virtual zebra para validação de desenvolvimento de etiquetas.

Guia passo a passo


  • Baixar o instalador no link

https://github.com/porrey/Virtual-ZPL-Printer/raw/main/Installer/Virtual%20ZPL%20Printer%20Setup.msi


  • Execute o instalador Virtual ZPL Printer Setup.msi





  • Assim que concluir, abra o aplicativo instalado Virtual ZPL Printer para efetuar a configuração do IP


  • Clique em Edit para configurar o IP da impressora


  • Informe o IP Address, coloque 127.0.0.1



  • Adicione manualmente uma impressora no WINDOWS, clicando em Adicionar Dispositivo / Adiconar Manualmente


  • Selecione a opção Adicionar uma impressora usando um endereço IP ou nome de host


  • Informe conforme abaixo, Dispositivo TPCP/IP, o IP cadastrado 127.0.0.1 e um nome para a porta ZPLVIRTUAL


  • Escolha o tipo de dispositivo Generic Network Card



  • Escolha o driver Generic / Generic / Text Only


  • Informe um nome para impressora, ideal que seja sem espaços, por exemplo ZPLVIRTUAL


  • E por ultimo, não tem necessidade de compartilhamento da impressora



  • Verifique a impressora instalada



  • Inicie a Impressora, clicando em Start



  • Compile a rotina ETIQUSB.PRW e execute a mesma ( exemplo do codigo fonte abaixo )
  • Verifique a impressão gerada




Fonte Exemplo

Exemplo programa com sintaxe para impressão usando driver windows


#include "protheus.ch"


// -------------------------------------------------------------------------------------
/*/{Protheus.doc} ETIQUSB
Impressão de etiqueta utilizando nome da impressora instalada no windows
/*/
// -------------------------------------------------------------------------------------


User Function ETIQUSB
Local cImpressora := "ZPLVIRTUAL"  // deverá existir a impressora no windows
Local cModelo := "ZEBRA"
MsgInfo("teste impressão","ETIQUSB")
MSCBPRINTER(cModelo,"GENERIC",,10,.F.,,,,,,.T.,"c:\temp\",cImpressora)
MSCBCHKSTATUS(.F.)
MSCBBEGIN(1,6)
MSCBSAY(10,10,"TESTE IMP2 DRIVER USB", "N","A","040,030")
MSCBEND()
MSCBCLOSEPRINTER()
MsgInfo("final impressão","ETIQUSB")
Return