Cod Barras - WinPrn

[Laudelino Scarmagnani]

Olá pessoal.
Mais uma dificuldade.
Tenho o seguinte código, para impressão da chave sefaz:

Código: Selecionar todos

WFRAME=nfaux->chavesefaz
oPrinter:SetColor( BLACK ) 
oPrinter:SetPrc(oPrinter:Prow()+4, 05 )
oPrinter:SetFont('Code39 Regular', 18, 5 )
//oPrinter:SetFont('Barcode Font', 20, 0 )
oPrinter:TextOut(wframe)
oPrinter:SetFont('Courier New', 12, 0 )

A impressão é feita imprimindo os números e não o código de barras.
Estou usando WinPrn, no xHarbour.
Se alguem puder me ajudar, agradeço.
Laudelino

[Toledo]

Vai um pergunta besta...

Você tem a fonte "Code39 Regular" instalada no seu computador, né?

Se sim, tente então mudar o comando para:

Código: Selecionar todos

oPrinter:SetFont('Code39 Regular', 18, 0 )

Abraços,

[Laudelino Scarmagnani]

Toledo, boa noite.
Não me atentei a isso. Desculpe, mas acredito que não tenho. Como consigo isso?
Laudelino

[Toledo]

Segue o link para baixar a fonte:

http://www.netfontes.com.br/dow.php?cod=code39

Abraços,

[Laudelino Scarmagnani]

Toledo, bom dia!
O que eu preciso é para impressão da chave SEFAZ, da NF-e. Posso imprimir com este tipo de codigo de barras?
Muito obrigado pela ajuda!
Laudelino

[Toledo]

Laudelino, no DANFE a impressão do código de barras tem que ser o CODE 128C. Na internet você deve encontrar esta fonte.

Bom, não sei o que você está montando, mas seria interessante dar uma olhada na lib hbzebra da Contrib do Harbour, com ela você poderá gerar qualquer tipo de código de barras.

Abraços,

[Laudelino Scarmagnani]

Obrigado, Toledo.
Estou desenvolvendo a impressão da Carta de Correção. Como não há um padrão para isso, vou deixar sem o código de barras da chave da nota, por enquanto. Vou pesquisar a forma de imprssão. É que o xHaqrbour não é o meu dia a dia. Por isso a minha dificuldade.
Laudelino

[Toledo]

Laudelino, dê uma olhada no projeto hbNFe:

https://pctoledo.org/forum/viewforum.php?f=54

É que o xHarbour não é o meu dia a dia.

Só uma observação... de acordo com as mensagens anteriores, você está desenvolvendo com o HARBOUR e não com o xHarbour.

Abraços,

[Laudelino Scarmagnani]

Toledo,
não tenho muito conhecimento nisso. Meu dia a dia é Mainframe, LINC, Cobol74, com BD DMS II. Esntão, estou meio perdido no desenvolvimento em micros. Trabalho em meu sistema fora do horario de expediente. Migrei do Clipper para o xHarbour. Então, fiquei meio preocupado. Devo estar usando comandos inconsistentes, então.
Leio bastante este forum, mas às vezes fico meio perdido.
Quanto ao HbNFe, já dei uma olhada. Vou estudar melhor para tentar entender como funcionam os comandos. Está meio "escuro" ainda.
Laudelino

[Laudelino Scarmagnani]

Olá pessoal,
desculpem! Mais uma dúvida.
Presico recuperar o arquivo as ser impresso, gerado pelo WinPrn. É possivel isso?
Há como gerá-lo tipo pdf?
Estou criando o job de impressão da seguinte forma.

Código: Selecionar todos

c_string := "Teste-CCe" 
IF !oPrinter:Create( c_string)
     wvt_messagebox("Create() Nao foi possivel criar o Job de Impressao - Verifique !!!","ATENCAO",48)
     return
ELSE
    IF !oPrinter:startDoc( c_string )
         wvt_messagebox("StartDoc() failed - Nao foi possivel criar o Job de Impressao - Verifique !!!","ATENCAO",48)
        return
   ELSE
        oPrinter:SetFont('Courier New',nAltu,{1,nFont}, 0, .F., .F.)
        oPrinter:NewLine()
  endif
endif

Agradeço se alguém puder me clarear mais isso. Uso xHarbour 1.0.0
Laudelino