Impressão de código de barras

Ai rapaziada segue uma api da datasul para gerar o código de barras

DEFINE VARIABLE AppWord AS COM-HANDLE NO-UNDO.

def var hbcapi016 as handle no-undo.
def var codigo as char.
run bcp/bcapi016.p persistent set hbcapi016.
run generateCODE128C in hbcapi016 (trim("" + string(ord-prod.nr-ord-produ)) ,output codigo).
delete procedure hbcapi016.

CREATE "Word.Application" AppWord.
AppWord:visible = false.
AppWordocuments:Open("\\servidor\datasul\espec\codin.doc",False,False,False,"","",False) no-error.

AppWord:Selection:Find:Text = "00000000000000000000000000000000000000000000".
AppWord:Selection:Find:Replacement:Text = codigo.
AppWord:Selection:Find:Forward = True.
AppWord:Selection:Collapse.
AppWord:Selection:Find:Execute(,,,,,,,,,,1,,,,).

AppWord:visible = true.

pronto é so gerar um documento do word com o texto "00000000000000000000000000000000000000000000" e colocar na fonte da iqs code 128

Obs. A fonte ja vem para a impressão da danfe

Para imprimir direto na zebra tlp2844

AppWord:ActivePrinter = "Zebra TLP2844".
AppwordrintOut() NO-ERROR.

Bom dia a todos ,

Estou com uma dúvida muito grande, é o seguinte aqui na empresa estou iniciando em Progress
e agora me pediram para gerar uma etiqueta com codigo de barras, com número do item e descrição e que o código de barras seja o número do item,não sei por onde começar, alguém pode me ajudar segue anexo tela como mais ou menos que estou tentando fazer.

o tipo de impressora é uma Intermec P-41 segue anexo a impressora

Desde já agradeço a todos.

Bom dia,

Sou nova por aqui porém, estou desenvolvendo um sistema em Progress para impressão de codigos de barra via USB na impressora TLP2844.
Já tentei com todos os exemplos que encontrei mas até o presente momento não obtive sucesso.

Preciso urgente de alguma forma para que esse processo seja efetuado.
Alguem tem um codigo para que eu possa utilizar como base??


aguardo retorno... :?

Pessoal, boa noite. O que eu vou falar aqui serve para o Jonas e para os demais quem não saiba.

Dentro do CD de instalação da Própria Impressora Zebra, por exemplo TLP 2844, tem um pasta com o nome Software, e dentro desta vocês podem instalar o Software Designer e/ou Designer Pro. Com isto você pode desenhar o layout da sua etiqueta, salvo e imprime para arquivo. Dentro do layout já crie variáveis com # quando texto e onde é o código de barras coloque tipo 888888 e/ou 7777777, e/ou 99999999. Alguma coisa do tipo. Depois vc manda o progress escrever dando um replace trocando onde tem # e/ou os números por seus dados das tabelas.
Entederam. segue em anexo o exemplo simples.

Abra o arquivo dentro de um editor de texto, e você vai ver o seguinte código.

Código:

def var c-impressao as char no-undo.

    assign  c-impressao =   c-impressao + ''
            c-impressao =   c-impressao + ''
            c-impressao =   c-impressao + 'Q406,019'
            c-impressao =   c-impressao + 'q831'
            c-impressao =   c-impressao + 'rN'
            c-impressao =   c-impressao + 'S4'
            c-impressao =   c-impressao + 'D7'
            c-impressao =   c-impressao + 'ZT'
            c-impressao =   c-impressao + 'JB'
            c-impressao =   c-impressao + 'OD'
            c-impressao =   c-impressao + 'R111,0'
            c-impressao =   c-impressao + 'N'
            c-impressao =   c-impressao + 'B512,373,2,E30,4,8,160,B,"9999999999994"'
            c-impressao =   c-impressao + 'A440,114,2,1,6,6,N,"#T"'
            c-impressao =   c-impressao + 'P1'
            .

    assign  c-impressao =   replace( c-impressao, "9999999999994", '7896714283005' ). /* Seu número com código */
    assign  c-impressao =   replace( c-impressao, "#T", 'SEU TEXTO' ).
    
    output to printer page-size 0.

        put unformatted c-impressao.

    output close.

Favor testar pois fiz correndo de madrugada e eu não tenho a impressora aqui. Mas já trabalhei com este tipo de impressão.
Seria mais ou menos assim. Faz o modelo no zebra design, salva, imprime para arquivo, abre o arquivo .prn em um editor de texto passa para dentro do progress e ai é só alegria, programação 4GL.

Abraço.

Bom dia Michel,

poderia me enviar este arquivo codin.doc utilizado no exemplo?

Aguardo,
Daniela.