Impressão em Zebra TLP 2844
Oi pessoal boa tarde por favor analisem o código abaixo:
Uso: Delphi 7, Firebird 1.5, DBExpress
Obs: CQ ->name do clientdataset
try
AssignFile(F,´LPT1´);
Rewrite(F);
writeln(F,´q608´); //width da etiqueta segundo o manual
writeln(F,´Q96,24+24´); //tamanho da etiqueta seg. o manual
SaveRecno(CQ); //Funcao que fiz para salvar posicao do registro
CQ.First;
while not CQ.Eof do begin
//Imprimi etiquetas de acordo com a quantidade do estoque
for nI := 1 to CQQtd.asInteger do begin
writeln(F,´N´);
//Codigo de barras
writeln(F,´B264,0,0,3,2,3,50,B,´´+CQPrd_Cod_Etq.asString+´´´);
//Codigo da etiqueta - impresso abaixo do codigo de barras
//Vr. do Fator
writeln(F,´A472,0,0,4,1,1,N,´´+CQPRD_FATOR_MARGEM.displaytext+´´´);
writeln(F,´P1´);
end;
CQ.Next;
end;
RestRecno(CQ); //Retorno no registro onde estava localizado
finally
Closefile(F);
end;
O objetivo e a emissão de etiquetas para joias, está imprimindo, o problema é que não consigo ajustar a etiqueta, ora sobe linha, ora desce, como ajustar ?
Alguém tem sugestão, por favor agradeço desde já
César
Uso: Delphi 7, Firebird 1.5, DBExpress
Obs: CQ ->name do clientdataset
try
AssignFile(F,´LPT1´);
Rewrite(F);
writeln(F,´q608´); //width da etiqueta segundo o manual
writeln(F,´Q96,24+24´); //tamanho da etiqueta seg. o manual
SaveRecno(CQ); //Funcao que fiz para salvar posicao do registro
CQ.First;
while not CQ.Eof do begin
//Imprimi etiquetas de acordo com a quantidade do estoque
for nI := 1 to CQQtd.asInteger do begin
writeln(F,´N´);
//Codigo de barras
writeln(F,´B264,0,0,3,2,3,50,B,´´+CQPrd_Cod_Etq.asString+´´´);
//Codigo da etiqueta - impresso abaixo do codigo de barras
//Vr. do Fator
writeln(F,´A472,0,0,4,1,1,N,´´+CQPRD_FATOR_MARGEM.displaytext+´´´);
writeln(F,´P1´);
end;
CQ.Next;
end;
RestRecno(CQ); //Retorno no registro onde estava localizado
finally
Closefile(F);
end;
O objetivo e a emissão de etiquetas para joias, está imprimindo, o problema é que não consigo ajustar a etiqueta, ora sobe linha, ora desce, como ajustar ?
Alguém tem sugestão, por favor agradeço desde já
César
Cesarpir
Curtidas 0