Olá Amigos.
Estou desenvolvendo um boleto em xharbour, utilizando a código abaixo para imprimir o código barra abaixo, de modo que imprime, mas não como deveria ser.
Alguém pode me informar qual fonte eu devo utilizar?
#include "FiveWin.ch"
function Main()
LOCAL cFontBC:="3OF9_NEW.TTF"
PRINT oPrn NAME "Teste de Impressão do Boleto" PREVIEW
oPrn:SetPage(9) // 1=Carta 9=A4
DEFINE FONT oFontBC NAME "3 of 9 Barcode" SIZE -110,-24 OF oPrn
AddFontResource(cFontBC)
//
cCODBARRA := "23793398039000002224541001160005663130000095000"
PAGE
oPrn:CmSay(27.75,0.6,"*"+cCODBARRA+"*",oFontBC,NIL,CLR_BLACK,NIL,NIL)
ENDPAGE
ENDPRINT
RETURN Nil
Impressão barra do boleto
Moderador: Moderadores