Caros amigos, bom dia!
Quero antes de tudo, agradecer imensamente a ajuda e preoucupação que me foi dispensada, pelo apaga fogo que surgiu. Estou finalizando o aplicativo com as sugestões que vocês me passaram e acredito que em pouco tempo estará finalizado e informarei, com certeza, o sucesso desta pequena e urgente impreitada. Espero um dia poder retribuir a essa preciosa ajuda. Um grande abraço a todos e Muito OBRIGADO. José de Moura Reis Jr. --- Em delphi-br@yahoogrupos.com.br, "Rildecy de Queiroz Borba" <[EMAIL PROTECTED]> escreveu > Amigo este código abaixo é o que uso para gerar a etiqueta, veja se ele pode > lhe ajudar. > // inicio > > AssignFile(lst,'LPT1'); > Rewrite(lst) ; > LcLinha := Chr(2) + 'qA'; > WriteLn(lst, lcLinha ); > LcLinha := Chr(2) + 'c0000'; > WriteLn(lst, lcLinha ); > LcLinha := Chr(2) + 'KI503'; > WriteLn(lst, lcLinha ); > LcLinha := Chr(2) + 'O0220'; > WriteLn(lst, lcLinha ); > LcLinha := Chr(2) + 'f220'; > WriteLn(lst, lcLinha ); > LcLinha := Chr(2) + 'KW0797'; > WriteLn(lst, lcLinha ); > LcLinha := Chr(2) + 'KI7' + chr(2); > WriteLn(lst, lcLinha ); > LcLinha := Chr(2) + 'V0'; > WriteLn(lst, lcLinha ); > LcLinha := Chr(2) + 'L'; > WriteLn(lst, lcLinha ); > LcLinha := 'H12'; > WriteLn(lst, lcLinha ); > LcLinha := 'PC'; > WriteLn(lst, lcLinha ); > LcLinha := 'A2'; > WriteLn(lst, lcLinha ); > LcLinha := 'D11'; > WriteLn(lst, lcLinha ); > LcLinha := '141100002240111' + Trim( EdtNomeProduto.Text ); // nome > do produto > WriteLn(lst, lcLinha ); > LcLinha := '421100000770038' + Trim( EdtLinha01.Text ); // 1º linha > lateral com o nome "supermercado" > WriteLn(lst, lcLinha ); > LcLinha := '421100000960068' + Trim( EdtLinha02.Text );// 2º linha > lateral com o nome "PREÇO BAIXO" aqui eu coloco o nome do supermercao > WriteLn(lst, lcLinha ); > LcLinha := '161100000740090R$ ' + Trim( EdtPreco.Text ); // já ta > dizendo preco da mercadoria; > WriteLn(lst, lcLinha ); > LcLinha := '121100001470599COD.: ' + Trim( EdtCodInterno.Text ); // > codigo interno da mercadoria > WriteLn(lst, lcLinha ); > LcLinha := '1F3303300710572' + Trim( EdtEan13.Text ); codigo ean13 > WriteLn(lst, lcLinha ); > LcLinha := Chr(94) + '01'; > WriteLn(lst, lcLinha ); > LcLinha := 'Q0001'; > WriteLn(lst, lcLinha ); > LcLinha := 'E'; > WriteLn(lst, lcLinha ); > closefile(lst) ; > // fim > > -----Mensagem original----- > De: ArbSis [mailto:[EMAIL PROTECTED] > Enviada em: sexta-feira, 18 de março de 2005 09:04 > Para: delphi-br@yahoogrupos.com.br > Assunto: Re: [delphi-br] Impressão de Codigo de Barras - Argox - PPLA > > > No cd que vem junto com a argox tem um exemplo em delphi e varios exemplos > em ppla no modo texto mesmo, ai vc ve qual vc acha melhor, o exemplo em > delphi faz uso de dll > > jmourajr2000 escreveu: > > > > > Caros amigos, boa noite! > > > > Surgiu-me inesperadamente uma solicitação de desenvolvimento de um > > aplicativo para a impressão de codigo de barras. > > O cliente comprou uma impressora Argox Rabbit 214 e me pede em carater > > emergencial(para amanhã a tarde 18/03) o tal aplicativo para impressão > > dos codigos. > > Como nunca desenvolvi nada para Argox pois sei que, após algumas > > pesquisas, a mesma utiliza uma linguagem PPLA(algo como comandos em > > MS-DOS pelo que entendi), não faço ideia por onde começar. > > O cliente me trará a impressora ainda hoje(22:00hs) , para que eu > > possa fazer tal rotina e testar, pois ele a utilizará no final de > > semana e deverá fazer sua entrega de produtos com os devidos codigos > > na proxima segunda e terça-feira. > > Perguntas: > > 1) Disponho de um componente chamado NS-Barras será que ele pode me > > auxiliar para tal? (impressão gerenciada pelo Windows + Quickreport) > > 2) Como programo em PPLA em Delphi? > > 3) Ou é melhor sair correndo? :) > > 4) Esta impressora suporta comandos desenvolvidos em 32bits? > > > > Quem puder me dar uma luz eu ficarei imensamente grato. > > > > Utilizo Delphi3 + Paradox > > > > Grato pela atenção de todos. > > > > Abraços. > > > > José de Moura > > > > > > > > > > > > > > > > -- > > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > > > Para ver as mensagens antigas, acesse: > > http://br.groups.yahoo.com/group/delphi-br/messages > > > > Para falar com o moderador, envie um e-mail para: > > [EMAIL PROTECTED] ou [EMAIL PROTECTED] > > > > > > > > *Yahoo! Grupos, um serviço oferecido por:* > > <http://br.rd.yahoo.com/SIG=12as0tkul/M=264379.5078783.6203979.1588051 > > /D=brclubs/S=2137111264:HM/EXP=1111193545/A=2191897/R=0/SIG=10vqa2grn/ > > *http://br.diversao.yahoo.com/> > > > > <http://br.rd.yahoo.com/SIG=12as0tkul/M=264379.5078783.6203979.1588051 > > /D=brclubs/S=2137111264:HM/EXP=1111193545/A=2191897/R=1/SIG=10vqa2grn/ > > *http://br.diversao.yahoo.com/> > > > > > > > > ---------------------------------------------------------------------- > > -- > > *Links do Yahoo! Grupos* > > > > * Para visitar o site do seu grupo na web, acesse: > > http://br.groups.yahoo.com/group/delphi-br/ > > > > * Para sair deste grupo, envie um e-mail para: > > [EMAIL PROTECTED] > > > > <mailto:[EMAIL PROTECTED]> > > > > * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do > > Serviço do Yahoo! <http://br.yahoo.com/info/utos.html>. > > > > > > > > -- > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > Para ver as mensagens antigas, acesse: > http://br.groups.yahoo.com/group/delphi-br/messages > > Para falar com o moderador, envie um e-mail para: > [EMAIL PROTECTED] ou [EMAIL PROTECTED] > > Links do Yahoo! Grupos -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html