Clarion - Template Barcode 3 of 9 para clarion 6.x

Hola Gente , alguien tiene el template para imprimir Cod de barras en clarion 6.x
ya que instalo la fuente Bar 3 of 9 en windows , pero el clarion no me lo toma a la fuente

Saludos [email protected]

Osvaldo

Yo lo armo con el siguiente código y funciona.



! FUENTE USADA
IntHrP24DmTt

NORMAL
24
! FIN FUENTE USADA




! RURINA PARA FORMAR EL CÓDIGO DE BARRAS



! Armo Código de Barras
Clear(Char)
codebarre = ''
I = 0
H = 0
J = 1
CH[J] = CHR(33)
A# = 0
Loop I# = 1 to 14 by 2
IF Sub(codesaisi,I#,2) Not > ''
Break
END
J += 1
IF Sub(codesaisi,I#,2) Not < 0 and Sub(codesaisi,I#,2) Not > 91
CH[J] = CHR(Sub(codesaisi,I#,2) + 35)
END
IF Sub(codesaisi,I#,2) = 92
CH[J] = CHR(196)
END
IF Sub(codesaisi,I#,2) = 93
CH[J] = CHR(197)
END
IF Sub(codesaisi,I#,2) = 94
CH[J] = CHR(199)
END
IF Sub(codesaisi,I#,2) = 95
CH[J] = CHR(201)
END
IF Sub(codesaisi,I#,2) = 96
CH[J] = CHR(209)
END
IF Sub(codesaisi,I#,2) = 97
CH[J] = CHR(214)
END
IF Sub(codesaisi,I#,2) = 98
CH[J] = CHR(220)
END
IF Sub(codesaisi,I#,2) = 99
CH[J] = CHR(225)
END
END

J += 1
CH[J] = CHR(34)
codebarre = Char

Display


! FIN RURINA PARA FORMAR EL CÓDIGO DE BARRAS