Utilização da fonte "Interleaved 2 of 5"

[marcio.theis 3]

Para quem deseja gerar códigos de barras sem precisar de componentes, pode-se utilizar a opção da fonte "Interleaved 2 of 5", ela pode ser baixada neste link .

Para funcionar, basta ser adicionado no QuickReport um componente do tipo Expression ou QrLabel, e alterar a fonte para "Interleaved 2 of 5" e colocar o tamanho como 66.

Segue a função que efetua a conversão:

 

function TForm1.ConverteBarra_2_5(str: string): string;var	padrao: array[1..100] of string;	x: integer;	ret: string;beginpadrao[1]:='nnWWn';padrao[2]:='NnwwN';padrao[3]:='nNwwN';padrao[4]:='NNwwn';padrao[5]:='nnWwN';padrao[6]:='NnWwn';padrao[7]:='nNWwn';padrao[8]:='nnwWN';padrao[9]:='NnwWn';padrao[10]:='nNwWn';padrao[11]:='wnNNw';padrao[12]:='WnnnW';padrao[13]:='wNnnW';padrao[14]:='WNnnw';padrao[15]:='wnNnW';padrao[16]:='WnNnw';padrao[17]:='wNNnw';padrao[18]:='wnnNW';padrao[19]:='WnnNw';padrao[20]:='wNnNw';padrao[21]:='nwNNw';padrao[22]:='NwnnW';padrao[23]:='nWnnW';padrao[24]:='NWnnw';padrao[25]:='nwNnW';padrao[26]:='NwNnw';padrao[27]:='nWNnw';padrao[28]:='nwnNW';padrao[29]:='NwnNw';padrao[30]:='nWnNw';padrao[31]:='wwNNn';padrao[32]:='WwnnN';padrao[33]:='wWnnN';padrao[34]:='WWnnn';padrao[35]:='wwNnN';padrao[36]:='WwNnn';padrao[37]:='wWNnn';padrao[38]:='wwnNN';padrao[39]:='WwnNn';padrao[40]:='wWnNn';padrao[41]:='nnWNw';padrao[42]:='NnwnW';padrao[43]:='nNwnW';padrao[44]:='NNwnw';padrao[45]:='nnWnW';padrao[46]:='NnWnw';padrao[47]:='nNWnw';padrao[48]:='nnwNW';padrao[49]:='NnwNw';padrao[50]:='nNwNw';padrao[51]:='wnWNn';padrao[52]:='WnwnN';padrao[53]:='wNwnN';padrao[54]:='WNwnn';padrao[55]:='wnWnN';padrao[56]:='WnWnn';padrao[57]:='wNWnn';padrao[58]:='wnwNN';padrao[59]:='WnwNn';padrao[60]:='wNwNn';padrao[61]:='nwWNn';padrao[62]:='NwwnN';padrao[63]:='nWwnN';padrao[64]:='NWwnn';padrao[65]:='nwWnN';padrao[66]:='NwWnn';padrao[67]:='nWWnn';padrao[68]:='nwwNN';padrao[69]:='NwwNn';padrao[70]:='nWwNn';padrao[71]:='nnNWw';padrao[72]:='NnnwW';padrao[73]:='nNnwW';padrao[74]:='NNnww';padrao[75]:='nnNwW';padrao[76]:='NnNww';padrao[77]:='nNNww';padrao[78]:='nnnWW';padrao[79]:='NnnWw';padrao[80]:='nNnWw';padrao[81]:='wnNWn';padrao[82]:='WnnwN';padrao[83]:='wNnwN';padrao[84]:='WNnwn';padrao[85]:='wnNwN';padrao[86]:='WnNwn';padrao[87]:='wNNwn';padrao[88]:='wnnWN';padrao[89]:='WnnWn';padrao[90]:='wNnWn';padrao[91]:='nwNWn';padrao[92]:='NwnwN';padrao[93]:='nWnwN';padrao[94]:='NWnwn';padrao[95]:='nwNwN';padrao[96]:='NwNwn';padrao[97]:='nWNwn';padrao[98]:='nwnWN';padrao[99]:='NwnWn';padrao[100]:='nWnWn';ret:='<';x:=1;while x <= Length(str) - 1 do	begin	ret:=ret + padrao[strToInt(Copy(str, x,2)) + 1];	x:=x + 2;	end;ConverteBarra_2_5:=ret + '>';end;

Basta chamar a função passando o valor que deseja ser convertido.

A impressora que irá efetuar a impressão, precisa ter a fonte instalada.

[Rudá 0]

Amigo eu fiz o que você colocou mas o código de barras fica muito grosso e eu tenho aqui um impresso que está funcionando e não se parece com o mostrado.

 

O que pode ser? Poderia me ajudar?

[marcio.theis 3]

Coloque o print de como esta saíndo, precisa ainda ver se a sua impressora da suporte a fonte para impressão