Copy File … To …

Copia um arquivo para uma porta serial

Exemplo da Rotina:

Copy File &("Nome do Arquivo") To &("Porta")

Exemplo 1- Imprimindo uma etiqueta na porta LPT1:

//Definindo nome do arquivo e porta
cNomeArq := "C:\Spool\etiqueta.txt"
cPorta   := "LPT1"

//Definições da etiqueta
cLin := "CT~~CD,~CC^~CT~"
cLin += "^XA"
cLin += "^PW799"
cLin += "^MD20"
cLin += "^FT759,585^A0B,20,19^FH\^FD" + cLinha7 + "^FS"
//... mais comandos
cLin += "^PQ"+cQtImp+",0,"+cQtImp+",Y^XZ"+cEOL				

//Gravando conteúdo no arquivo
MemoWrite(cNomeArq, cLin)

//Mandando para a impressora... caso queira simular use:
//net use PORTA \\DOMINIO\ALIAS_IMPRESSORA
//Ex.: net use LPT1 \2.168.x.y\Zebra-Protheus
Copy File &(cNomeArq) To &(cPorta)

Observações:

  • Caso tenha dúvidas ou problemas com os exemplos, entre em contato;
  • Se tiver sugestões de rotinas, pode entrar em contato;