PC Toledo

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?

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.

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,

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 ?

Maurício Elias escreveu: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.

Maurício Elias escreveu: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,

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

Saudações,
Itamar M. Lins Jr.

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....

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 ?

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

PC Toledo

Como Imprimir Etiqs Barras?

Como Imprimir Etiqs Barras?

Como Imprimir Etiqs Barras?

Como Imprimir Etiqs Barras?

Como Imprimir Etiqs Barras?

Como Imprimir Etiqs Barras?

Como Imprimir Etiqs Barras?

Como Imprimir Etiqs Barras?

Como Imprimir Etiqs Barras?

Como Imprimir Etiqs Barras?