ActiveDelphi

[Wolver]

Aí pessoal estou precisando de ajuda para imprimir etiquetas em uma impressora Argox (metrologic).
Nem sei por onde começar.

Tô com um código aqui e não estou entendendo nada.
Seguinte código:Esses são comandos enviadas para a impressora?????

---> o que significa isto????

WriteLn(Texto, 'qA');
WriteLn(Texto, 'c0000');
WriteLn(Texto, 'KI503');
WriteLn(Texto, 'O0220');
WriteLn(Texto, 'f220');
WriteLn(Texto, 'KW0433');
WriteLn(Texto, 'KI7
');
WriteLn(Texto, 'V0');
WriteLn(Texto, 'L');
WriteLn(Texto, 'H11');
WriteLn(Texto, 'PC');
WriteLn(Texto, 'A2');
WriteLn(Texto, 'D11');

if (QtdCopia = 0) and ((RowCount - 1) >= 1) then begin
Linha := (Linha + 1);
if (Cells[eQtdCopia, Linha] <then>= 1) then begin
Linha := (Linha + 1);
if (Cells[eQtdCopia, Linha] <> '') then begin
QtdCopia := StrToInt(Cells[eQtdCopia, Linha]);
Codigo := Cells[eCodigo, Linha];
Cod_barra := Cells[eCODBAR, Linha];
Descri_Prod := Cells[eDescricaoProduto, Linha];
preco := StrToFloat(Cells[eValorUnit, Linha]);
end;
end;
WriteLn(Texto, '1A3103000050207'+Cod_barra);
WriteLn(Texto, '121100000620201'+Codigo);
WriteLn(Texto, '111200000600263'+'R$'+Alinha(FormatFloat(FazMascara(2),preco), walDireito, 12));
WriteLn(Texto, '101200000510202'+copy(Descri_Prod,1,40));
QtdCopia := QtdCopia - 1;

WriteLn(Texto, '^03');
WriteLn(Texto, 'Q0001');
WriteLn(Texto, 'E');

[joemil]

esses devem ser os codigos de controle da impressora. da uma olhada no manual pra saber pra que server
_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/

[Wolver]

[anfm]

Pq vc não usa o ACBrETQ?

Para baixar o componente use o seguinte link: http://downloads.sourceforge.net/acbr/ACBr_0.8.7b.zip?modtime=1212594951&big_mirror=0
_________________
Conheça o Projeto ACBr:
http://acbr.sf.net

http://anfm.blogspot.com

[Wolver]

[chip_set]

// quatro ultimo numero é local da direita para esquerda
// aqui vc vai configurar a impressora
linha1:=funcoes.TrataAcentos(dados.CDS_licencaFANTASIA.Value);
linha2:=funcoes.TrataAcentos(dados.CDS_PRODUTOSDESCRICAO.Value);
linha3:=edit2.Text;
linha4:=dados.CDS_PRODUTOSCODIGO_BARRAS.Value;
AssignFile(Arquivo,'LPT1');
Rewrite(Arquivo);
write(Arquivo, #2'L');
write(Arquivo, #2'm');
write(Arquivo, #2'e');
write(Arquivo, 'PC');
write(Arquivo, 'D11');
write(Arquivo, 'H'+combobox1.text); // qualidade da impressão
write(Arquivo, 'z');


writeln(Arquivo, '121100001700050');
writeln(Arquivo, '121100001400050');
writeln(Arquivo, '111100000050130');
writeln(Arquivo, '1F220'+combobox2.text+'000050050'+linha4);

writeln(Arquivo, '121100001700410');
writeln(Arquivo, '121100001400410');
writeln(Arquivo, '111100000050490');
writeln(Arquivo, '1F220'+combobox2.text+'000050410'+linha4);

writeln(Arquivo, '121100001700750');
writeln(Arquivo, '121100001400750');
writeln(Arquivo, '111100000050840');
writeln(Arquivo, '1F220'+combobox2.text+'000050750'+linha4);