Como Imprimir Etiqs Barras?

[Maurício Elias]

Bom dia pessoal.
Acabei de conseguir compilar com o Harbour, graças a Deus.
Usava até então, o ImpBar.LIB para minhas etiquetas em barras.
Fiz algumas procuras, mas não me encontrei.
O que vcs me aconselham a usar agora para minhas etiqs em barras?

[Itamar M. Lins Jr.]

Vocês precisam aprender a perguntar melhor.
Qual é o modelo da etiqueta de código de barras ?
Qual é a marca da impressora ?
Quem fez essa impbar.lib ?

Existe n modelos de códigos de barras EAN13, CODEBAR, ISBN, etc.... e de etiquetas, como nós vamos adivinhar o que vc usa ?

Saudações,
Itamar M. Lins Jr.

[Toledo]

Amigos, segue um exemplo:

Código: Selecionar todos

/****************************************
* Compilar: hbmk2 demo.prg -lhbwin
****************************************/
PROCEDURE Main()
   LOCAL nPrn := 1
   LOCAL aPrn := WIN_PRINTERLIST()

   CLS
   SETMODE(25,80)

   IF Empty( aPrn )
      Alert("Nenhuma impressora Instalada - Encerrando programa")
      QUIT
   ENDIF

   DO WHILE nPrn != 0
      CLS
      @ 3, 0 SAY "Escolha a impressora"
      @ 5, 9 TO MaxRow()-9, MaxCol()-9
      nPrn := AChoice( 6, 10, MaxRow() - 10, MaxCol() - 10, aPrn, .T.,, nPrn )
      IF nPrn != 0
         PrnTest( aPrn[ nPrn ] )
      ENDIF
   ENDDO

RETURN

*******************************************
Function PrnTest(cPrinterName)
*******************************************
local cTexto, nLinhas, nA, cLinha, oBMP
local oPrinter := win_prn():New(cPrinterName)

oPrinter:Landscape:= .F.
oPrinter:FormType:= 9
oprinter:SetPrintQuality(-1)
oPrinter:Copies:= 1

IF !oPrinter:Create()
   alert("ATENÇÃO !!! Não foi possivel Iniciar a Impressão, Favor Verificar se a Impressora esta Ligada.")
   return NIL
else
   IF !oPrinter:StartDoc("Codigo Barras")
      alert("ATENÇÃO !!! Não foi possivel Iniciar a Impressão, Favor Verificar a Impressora")
      Return NIL
   endif

   FOR TT=1 TO 2
      oPrinter:newline()
   NEXT

   oPrinter:Bold(0)
   oPrinter:TextOut("Teste impressao Codigo de Barras")

   oPrinter:Bold(0)
   oPrinter:TextAtFont( oPrinter:MM_TO_POSX( 30 ), oPrinter:MM_TO_POSY( 60 ), "1234567890", "barcod39", 24, 0 )

   oPrinter:TextAtFont( oPrinter:MM_TO_POSX( 30 ), oPrinter:MM_TO_POSY( 80 ), "1234567890", "Code 128", 24, 0 )

   oPrinter:TextAtFont( oPrinter:MM_TO_POSX( 30 ), oPrinter:MM_TO_POSY( 100 ), "1234567890", "Code-93", 24, 0 )

   oPrinter:EndDoc()
   oPrinter:Destroy()
ENDIF
RETURN NIL

As fontes ttf usadas neste exemplo segue em anexo.

Abraços,

[Maurício Elias]

Olá Itamar.
Preciso de uma rotina Harbour para imprimir uma string numérica de 5 digitos em cod.barras em imp.jato tinta, cod 25, ou 39. A ImpBar.LIB é uma rotina que fazia isso no Clipper, mas não serve mais para o harbour.

Toledo, dezipei o anexo, não entendi como compilá-lo no meu fonte. Não consegui nem abrir eles. Ví no seu exemplo vários comandos que não conheço no Clipper (como o oPrinter:). Tem alguma literatura para eu aprender esses novos comandos ?

[Toledo]

Toledo, dezipei o anexo, não entendi como compilá-lo no meu fonte.

Não é para compilar, são arquivos ttf de fontes para o Windows que devem ser instalados no Painel de Controle do Windows.
Para instalar os arquivos ttf, entre no Painel de Controle e dê um clique duplo na opção Fontes, depois escolha as opções Arquivo e Instalar nova fonte.... Na tela seguinte, tem uma opção para escolher a pasta onde estão os arquivos ttf, ai quando você selecionar a pasta onde você salvou os arquivos ttf, será apresentado a Lista de fontes, então selecione todas as fontes da lista e clique no botão OK.

Ví no seu exemplo vários comandos que não conheço no Clipper (como o oPrinter:)

Para compilar este exemplo, copie o código todo e salve em um arquivo DEMO.PRG e depois é só compilar, digite:
hbmk2 demo.prg -lhbwin

Mais exemplos, veja a pasta C:\hb32\contrib\hbwin\tests do seu Harbour, procure pelos arquivos prn1.prg e pdfcreat.prg.

Use também o sistema de busca aqui do fórum, procure por oPrinter ou startDoc.

Abraços,

[Itamar M. Lins Jr.]

Como é o papel com as etiquetas ?
Quantas colunas, tamanho das etiquetas ?

Saudações,
Itamar M. Lins Jr.

[bencz]

https://pctoledo.org/forum/viewto ... f=4&t=5112

Veja os anexos também... (:

Eles não são exatamente para realizar a impressão, mas, vão te retornar tudo pronto pata tal!
Vendo as dicas e informações dadas pelos nossos colegas, você consegue tranquilamente, realizar a impressão....

[Maurício Elias]

Boa tarde pessoal.

Itamar, não é uma etiq específica. É prá clientes. Normalmente alguma HP, pode ser de 5 carreiras, outro pode ser de uma, varia né. O importante é eu conseguir imprimir no papel um cód.Barras partindo de um numero de 5 posições. O resto eu mesmo programo.

Bencz, obrigado, fiz o download e vou analisar. Mas vc disse que não imprime as barras, é isso ?

[bencz]

Correto, ela apenas monta o código de barras.