|
jamiguel77 vi tus preguntas y lamento decirte que no tengo respuestas a ninguna de estas, ya que yo uso una funcion que envia los parametros directamente al puerto lpt1 si usar ningun componente de reportes o de codigo de barras. aqui te va el ejemplo por si te interesa. . .
//EL PARAMETRO CANTIDAD ES LA CANTIDAD DE CODIGOS QUE SE IMPRIMIRA
procedure PrintBarCode(cantidad , articulo_no,articulo : String);
var txt: TextFile;
L,Q1,Q2,Q3,Q4,Q5,A,A1,B,C,D,E,cad,cadena:String ;
X ,keyz: Integer;
art1,art2, art3 : String;
Begin
art1 := Trim( articulo) ;
art1 := Copy(articulo ,1,15 );
art2 := Copy(articulo ,16,15 );
Q2 := '' ;
L:=chr(13)+Chr(10);
Q1:='q500'+L;
cadena := trim(articulo_no);
Q2:='A460,10,0,3,1,1,N,'+'"'+'- NOMBRE DE EMPRESA '+'"'+L ;
Q3:='A480,30,0,3,1,1,N,'+'"'+' '+Trim(art1)+'"' +L; //AQUI SALE LA DESCRIPCION DEL
Q4:='A480,50,0,3,1,1,N,'+'"'+' '+Trim(art2)+'"' +L; //DEL ARTICULO
B:='B99,110,0,E30,2,10,50,B,'+'"'+cadena +'"' ; //EL PARAMETRO CADENA ES EL CODIGO
AssignFile(Txt,printervalue.codigobarra); //DE BARRAS
Rewrite(Txt);
E := L+'N'+L+'O'+L+'S2'+L+'D2'+L+'ZT'+L+'Q250,90'+Q1+Q2+Q3+Q4+Q5+B+L+'P1';
for X := 1 TO StrToInt(cantidad) DO Writeln(Txt,E );
CloseFile(Txt);
End;
|