Página 1 de 1
Cod Barras - WinPrn
Enviado: 02 Jul 2012 21:13
por 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
Cod Barras - WinPrn
Enviado: 02 Jul 2012 22:27
por 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:
Abraços,
Cod Barras - WinPrn
Enviado: 02 Jul 2012 23:45
por Laudelino Scarmagnani
Toledo, boa noite.
Não me atentei a isso. Desculpe, mas acredito que não tenho. Como consigo isso?
Laudelino
Cod Barras - WinPrn
Enviado: 03 Jul 2012 00:35
por Toledo
Cod Barras - WinPrn
Enviado: 03 Jul 2012 07:52
por 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
Cod Barras - WinPrn
Enviado: 03 Jul 2012 08:14
por 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,
Cod Barras - WinPrn
Enviado: 03 Jul 2012 10:21
por 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
Cod Barras - WinPrn
Enviado: 03 Jul 2012 11:22
por Toledo
Laudelino, dê uma olhada no projeto hbNFe:
https://pctoledo.org/forum/viewforum.php?f=54
Laudelino Scarmagnani escreveu:É 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,
Cod Barras - WinPrn
Enviado: 03 Jul 2012 11:59
por 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
Cod Barras - WinPrn
Enviado: 09 Jul 2012 19:27
por 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