BarLib. Problema resolvido.!!!

[syda]

Olá a todos,

Mais uma vez recorro aos feras do FW para resolver um probleminha...Baixei a lib Barlib e não estou conseguindo nada!

Já fiz uma busca no Fórum a fim de sanar esta pequena dificuldade mas não encontrei nenhuma solução que funcionasse.

Estou usando da seguinte forma:

#include "barcode.ch"

// imprimindo a etiqueta - usando a BARLIB

DEFINE FONT oFCourie12 NAME "COURIERPS" SIZE 0,-12

DEFINE FONT oFCourie14 NAME "COURIERPS" SIZE 0,-14

DEFINE FONT oFontPR NAME "COURIERPS" SIZE 40,100 //9,14

PRINT oPrnPR PREVIEW

oPrnPR:SETPAGE(9) // A4

oPrnPR:SETPORTRAIT()

LN :=001

PAG:=000

BEGIN SEQUENCE

oPrnPr:StartPage()

++PAG

oPrnPR:CMSAY(10,10,'Tubo de Bobina',oFontPR)

// PESOB é uma variável caractere

@ 20,10 CM_CODE3_9 PESOB OF oPrnPR SIZE 1.5

oPrnPR:EndPage()

END SEQUENCE

ENDPRINT

RETURN NIL

//-------------------------------------------------------

O código acima não imprime nada. Os exemplos postados são em relação a outro tipo de barras (EAN).

Agradeço desde já a atenção dispensada.

Shirley d'Almeida

Editado por - syda on 16/07/2005 15:03:32

[eajunior]

Ola Shirley voce tem os samples do BarLib, eu tenho uma função de etiquetas e funciona sem problemas

Onde você vê um obstáculo alguém vê o término da viagem e o outro vê uma chance de crescer.

Elias Abrão Júnior

Fone : (0**11) 5181-6909 São Paulo - SP

eajunior.fw@terra.com.br

xHarbour 0.99.0 - Fivewin 2.5 e xMate

[marcelo]

Ola

Não seria @ 20,10 CM_CODE3_9 PESOB SIZE 1.5 WIDTH 0.025 OF oPrnPR

Yrece

[syda]

Sim. Eu tenho a pasta samples e o executável de exemplo que está nesta pasta mostra a página 1 em branco. Fiz tudo igualzinho como no exemplo.

Você usa o CODE39? seria possível postar como você está utilizando?

[eajunior]

Ola Syda, vou mandar para seu email o prg que criei.

Onde você vê um obstáculo alguém vê o término da viagem e o outro vê uma chance de crescer.

Elias Abrão Júnior

Fone : (0**11) 5181-6909 São Paulo - SP

eajunior.fw@terra.com.br

xHarbour 0.99.0 - Fivewin 2.5 e xMate

[Helio_hbinfo]

Syda

Bom dia eu uso assim

tome cuidado a variavel é literal

//----------------------------------------------------------------------------//

FUNCTION EtiqBar1() && Imprime Etiqueta - UMA

LOCAL oPrn, oIni, oPrinter, oReport

LOCAL oFont, oFont1,oFont8 ,oFont10,oFont2 ,oFont3, oFont6

LOCAL wQuant1 := STR(INT(wquant),0)

LOCAL wLinha1 := "N0"+STRZERO(VAL(wNumNF),6,0)+STRZERO(wNumEtiq,3,0)

LOCAL wLinha2 := "Q"+SUBSTR(wcodf,1,8)+STRZERO(wquant,5,0)

wMensEt := "Ref.Procedimento QA004-Versão Etiqueta 001 - Data Impressão : "+DTOC(DATE())

IF wUnd <> "MT" .AND. wUnd <> "KG"

wUnd := "PC"

ENDIF

// PRINTER oPrn PREVIEW

PRINTER oPrn

DEFINE FONT oFont NAME "Times New Roman" SIZE 0,-20 OF oPrn

DEFINE FONT oFont NAME "ARIAL" SIZE 0,-100 BOLD

DEFINE FONT oFont6 NAME "Arial" SIZE 0, -6 OF oPrn

DEFINE FONT oFont8 NAME "Arial" SIZE 0, -8 OF oPrn

DEFINE FONT oFont10 NAME "Arial" SIZE 0, -10 OF oPrn

DEFINE FONT oFont1 NAME "Arial" BOLD ITALIC SIZE 0, -20 OF oPrn

DEFINE FONT oFont2 NAME "Arial" BOLD ITALIC UNDERLINE SIZE 0, -8 OF oPrn

DEFINE FONT oFont3 NAME "Arial" BOLD UNDERLINE SIZE 0, -20 OF oPrn

PAGE

oPrn:ImportWMF( "\wind\EtiqGR1.Wmf" )

oPrn:CmSay( 4.0, 6.5, "Material APROVADO", oFont3)

oPrn:CmSay( 5.0, 3.0, "Código Cliente", oFont2)

oPrn:CmSay( 5.4, 3.0, wCodf, oFont)

oPrn:CmSay( 5.0, 11.0, "Quantidade", oFont2)

oPrn:CmSay( 5.4, 10.0, wQuant1, oFont)

oPrn:CmSay( 6.0, 3.0, REPLICATE("_",83), oFont10)

oPrn:CmSay( 6.1, 3.0, REPLICATE("_",83), oFont10)

oPrn:CmSay( 6.5, 3.0, "Descrição", oFont2)

oPrn:CmSay( 6.9, 3.0, wDescr, oFont)

oPrn:CmSay( 6.5, 15.5, "Tipo", oFont2)

oPrn:CmSay( 6.9, 15.5, wUnd, oFont)

oPrn:CmSay( 7.3, 3.0, REPLICATE("_",83), oFont10)

oPrn:CmSay( 7.4, 3.0, REPLICATE("_",83), oFont10)

@ 08,9.0 CM_CODE3_9 wLinha1 of oPrn

oPrn:CmSay( 9.6, 9.0, wLinha1, oFont10)

@ 10.5,9.0 CM_CODE3_9 wLinha2 of oPrn

oPrn:CmSay( 12.1, 9.0, wLinha2, oFont10)

oPrn:CmSay( 12.5, 3.0, wMensEt, oFont6)

wNumEtiq := wNumEtiq + 1

ENDPAGE

ENDPRINT

oFont:End()

oFont6:End()

oFont8:End()

oFont10:End()

oFont1:End()

oFont2:End()

oFont3:End()

return nil

espero ter ajudado

Helio Tsuyama

Santo Andre - SP

FWH25 - WS - xHb .99 - xMate

hbinfo.br@uol.com.br

[Kleyton]

Eu utilizo assim:

@ 27.3,0.8 CM_INT25 wCodBarra of oPrn ;

SIZE 1.5

Kleyton

Clipper5.2E+Clipper5.3b+Blink7+FW2.0d

cleitonbala@bol.com.br

[syda]

Obrigada a todos que deram alguma solução, consegui fazer funcionar!!!

Shirley d'Almeida

FW 2.6 + Clipper 5.3b + Blinker 7.0

FWH 2.6 + xHarbour 0.99.51 (simplex) + BCC55 + HbMAke