Fórum Impressora zebra TLP 2844 #328986

dá uma olhada nesse exemplo ...
qualquer coisa pega o meu msn ...

procedure TForm1.Button1Click(Sender: TObject);
var
F : TextFile;
begin
AssignFile(F,´LPT1´);
Rewrite(F);

//writeln(F,´U´); //Imprimindo configuração da zebra

//writeln(F,´S2´); //Velocidade da impressão

writeln(F,´Q45,0´); //Espaço entre etiquetas ,B72,32

Writeln(F,´N´); //Cabecalho

Writeln(F,´A1,1,0,3,1,2,N,´´+Descricao.Text+´´´); //Decrição do Produto

Writeln(F,´B1,50,0,1,2,5,100,B,´´+Barras.Text+´´´); //Código de Barras

Writeln(F,´A260,85,0,4,2,2,N,´´+Tipo.Text+´´´); //Tipo da Moeda

Writeln(F,´A350,65,0,4,3,4,N,´´+FormatFloat(´#0.00´,ValorProduto.Value)+´´´); //Valor do Produto

//writeln(F,´R´); //Setando configuração na print

Writeln(F,´P1´); //Imprimindo etiquetas - 1 coluna

Closefile(F);
end;

Atenciosamente

Jadielson Rodrigues
Analista

Muito obrigado pela tua atenção Jadielson.
Vou estudar este código e testa-lo.

Até mais

Mas estou usando a conexão USB.
Fica assim: AssignFile(F,´USB001´);
E onde determino a quantidade de etiquetas a serem impressas?
Desde já obrigado