Este es el codigo que utilizo para imprimir el codigo de barras
Código SQL
[-]
AssignFile(f,'com2');
try
Rewrite(f);
Writeln ( f, #$1D + 'f' + #$1 ); //Esto es para seleccionar el tipo de caracteres HRI
Writeln ( f, #$1D + 'h' + #$20 ); // Setea el alto
Writeln ( f, #$1D + 'w' + #$2 ); // Setea el tamaño del ancho a 5
Writeln ( f, #$1D + 'H' + #$2 ); // Seleccion la posición a imprimir
//EAN13 -> #$2
Writeln ( f, #$1D + 'k' + #$2 ); // Imprime codigo de barras
Writeln ( f, '2690162200004' + #$0 ); // siempre acaba con nulo
finally
CloseFile(f);
end;