[RESOLVIDO] Impressão de etiquetas

Discussão em 'EMS , HCM e Totvs 11' iniciado por erickles, Janeiro 21, 2010.

Status do Tópico:
Não esta aberto para novas mensagens.
  1. erickles

    erickles Membro Participativo

    Fala Pessoal,

    Alguem tem um bom exemplo de impressão de etiqueta, utilizando a impressora argox ?
  2. turks

    turks Membro Participativo

    Bom Dia!

    Erick, dá uma olhada aqui nesse link, ele tem um exemplo bom pra usar:
    http://superdownloads.uol.com.br/downlo ... rgox-ppla/

    A linguagem PPLA é bastante limitada, assim como a EPL, também de impressora zebra, quebrei a cabeça pra conseguir aprender EPL.
    Espero ter ajudado!
  3. erickles

    erickles Membro Participativo

    Então cara, gostaria de um exemplo em progress...
  4. pitsa

    pitsa Membro Participativo

    como dito no outro post seu, se ela utiliza ZPL, gere as instruções ZPL em um arquivo e redirecione ele para a porta da impressora....

    OS-COMMAND SILENT TYPE c:\temp\zebra.txt > lpt1.

    Sds.,

    André
  5. michel

    michel Membro Participativo

    seguinte fiz a impressora zebra imprimir direto em cada imagem de pedido ela gera um documento do word e imprime, segue exemplo.

    Obs. é necessesario que haja um impressora local instalada com nome "Zebra TLP2844 - Expedição". É claro pode ser alterado mas não esqueça de alterar no fim do programa.

    run etiqueta.

    procedure etiqueta:

    DEFINE VARIABLE AppWord AS COM-HANDLE NO-UNDO.

    CREATE "Word.Application" AppWord.
    AppWord:visible = false.
    AppWord:Documents:Open("c:\teste\etiquetavazia.doc",False,False,False,"","",False) no-error.

    AppWord:Selection:Find:Text = "#PEDIDO".
    AppWord:Selection:Find:Replacement:Text = ped-item.nr-pedcli.
    AppWord:Selection:Find:Forward = True.
    AppWord:Selection:Collapse.
    AppWord:Selection:Find:Execute(,,,,,,,,,,1,,,,).

    AppWord:Selection:Find:Text = "#CLIENTE".
    AppWord:Selection:Find:Replacement:Text = emitente.nome-emit.
    AppWord:Selection:Find:Forward = True.
    AppWord:Selection:Collapse.
    AppWord:Selection:Find:Execute(,,,,,,,,,,1,,,,).

    Appword:ActiveDocument:SaveAs("c:\temp\" + ped-item.nr-pedcli + "x.doc") no-error.
    Appword:ActiveDocument:CLOSE.
    Appword:QUIT().

    CREATE "Word.Application" AppWord.
    AppWord:Documents:Open("c:\temp\" + ped-item.nr-pedcli + "x.doc",False,False,False,"","",False) no-error.
    AppWord:visible = true.

    AppWord:ActivePrinter = "Zebra TLP2844 - Expedição".
    Appword:printOut() NO-ERROR.

    end procedure.

    Arquivos Anexados:

  6. moizezs

    moizezs Sem Pontuação

    Bom Dia!!

    Não tenho mt conhecimento no EMS..
    Entrei no _edit.p e colei o código...
    colei o .doc no caminho especificado!.

    mas dá o seguinte erro..

    gratoOOO!!

    Arquivos Anexados:

    • msg.JPG
      msg.JPG
      Tamanho:
      9.6 KB
      Visitas:
      307
Status do Tópico:
Não esta aberto para novas mensagens.

Compartilhe esta Página