Geração de Código de barras - FPDF

olha este exemplo:

Sub fbarcode(Valor)
Dim f, f1, f2, i
Dim texto
Dim p11
p11=11
Const fino = 0.4
Const largo = 0.7
Dim BarCodes(99)
if isempty(BarCodes(0)) then
BarCodes(0) = "00110"
BarCodes(1) = "10001"
BarCodes(2) = "01001"
BarCodes(3) = "11000"
BarCodes(4) = "00101"
BarCodes(5) = "10100"
BarCodes(6) = "01100"
BarCodes(7) = "00011"
BarCodes(8) = "10010"
BarCodes(9) = "01010"
for f1 = 9 to 0 step -1
for f2 = 9 to 0 Step -1
f = f1 * 10 + f2
texto = ""
for i = 1 To 5
texto = texto & mid(BarCodes(f1), i, 1) + mid(BarCodes(f2), i, 1)
next
BarCodes(f) = texto
next
next
end if

xPos=14
p201=233
pdf.rect xPos, p201, fino, p11, "F"
xPos = xPos + fino + fino
pdf.rect xPos, p201, fino, p11, "F"
xpos = xpos + fino + fino
For n = 1 To Len(valor_barras) Step 2
cASC = cint(Mid(valor_barras, n, 2))
For i = 1 To 10 Step 2
If Mid(BarCodes(cASC), i, 1) = "0" Then
F = fino
Else
F = largo
End If
pdf.rect xpos, p201, F, p11, "F"
xpos = xpos + F
If Mid(BarCodes(cASC), i + 1, 1) = "0" Then
xpos = xpos + fino
Else
xpos = xpos + largo
End If
Next
Next

pdf.rect xpos, p201, largo, p11, "F"
xpos = xpos + fino + largo
pdf.rect xpos, p201, fino, p11, "F"

end Sub

>

olha este exemplo:

Sub fbarcode(Valor)
Dim f, f1, f2, i
Dim texto
Dim p11
p11=11
Const fino = 0.4
Const largo = 0.7
Dim BarCodes(99)
if isempty(BarCodes(0)) then
BarCodes(0) = "00110"
BarCodes(1) = "10001"
BarCodes(2) = "01001"
BarCodes(3) = "11000"
BarCodes(4) = "00101"
BarCodes(5) = "10100"
BarCodes(6) = "01100"
BarCodes(7) = "00011"
BarCodes(8) = "10010"
BarCodes(9) = "01010"
for f1 = 9 to 0 step -1
for f2 = 9 to 0 Step -1
f = f1 * 10 + f2
texto = ""
for i = 1 To 5
texto = texto & mid(BarCodes(f1), i, 1) + mid(BarCodes(f2), i, 1)
next
BarCodes(f) = texto
next
next
end if

xPos=14
p201=233
pdf.rect xPos, p201, fino, p11, "F"
xPos = xPos + fino + fino
pdf.rect xPos, p201, fino, p11, "F"
xpos = xpos + fino + fino
For n = 1 To Len(valor_barras) Step 2
cASC = cint(Mid(valor_barras, n, 2))
For i = 1 To 10 Step 2
If Mid(BarCodes(cASC), i, 1) = "0" Then
F = fino
Else
F = largo
End If
pdf.rect xpos, p201, F, p11, "F"
xpos = xpos + F
If Mid(BarCodes(cASC), i + 1, 1) = "0" Then
xpos = xpos + fino
Else
xpos = xpos + largo
End If
Next
Next

pdf.rect xpos, p201, largo, p11, "F"
xpos = xpos + fino + largo
pdf.rect xpos, p201, fino, p11, "F"

end Sub

Pois é tô usando esse, mas não consigo imprimir ele no fpdf ! não sei o que tá havendo !

Até funciona, ele gera do Código de barras, não não no PDF

vc esta testando no servidor ou no localhost ?

vc esta testando no servidor ou no localhost ?

Local Existe algum problema em ser local ?

se o componente não estiver instalado corretamente pode surgir problemas, rode ele no host.

Qual o componente ? - estou me referindo ao FPDF para ASP

O componente FPDF, desinstale e insta-le novamente

O componente FPDF não é um instalador é como no fpdf ele lê a biblioteca. ele gerou o seguinte erro na produção

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'CodigoBarraspdf'

/exec/boleto/boletoPublicoPdf.asp, line 1229
Sendo que a linha 1229 nem está presente no documento

boletoPublicoPdf Não sei mais o que fazer rsrs com esse código de barras

temque instalar ele através do regsvr32.exe

digite assim no executar do Windows (tem que deixar a dll dentro de C:\WINDOWS\system32)

regsvr32.exe C:\WINDOWS\system32\fpdf.dll.

isso aqui foi resolvido??
qual foi a solução?

Diego sim, foi resolvido, eu usei o componente FPDF para asp e gerei o código de barras de acordo como exemplo do amigo ali em cima

Boa noite ,

estou usando este script apresentou o codigo de barras no PDF porém errado.

O que eu fiz foi trocar a varialvel valor_barras pela texto, isso porque esta primeira vinha sempre zerada e nao achei a origem dela.

Aguem pode da um apoio?

Penso que nao entendi onde é carreagda a variável valor_barras.

Boa noite ,

Aguem pode da um apoio?

Penso que nao entendi onde é carreagda a variável valor_barras.

Sub fbarcode(Valor)

Dim f, f1, f2, i

Dim texto

Dim p11

p11=11

Const fino = 0.4

Const largo = 0.7

Dim BarCodes(99)

if isempty(BarCodes(0)) then

BarCodes(0) = "00110"

BarCodes(1) = "10001"

BarCodes(2) = "01001"

BarCodes(3) = "11000"

BarCodes(4) = "00101"

BarCodes(5) = "10100"

BarCodes(6) = "01100"

BarCodes(7) = "00011"

BarCodes(8) = "10010"

BarCodes(9) = "01010"

for f1 = 9 to 0 step -1

for f2 = 9 to 0 Step -1

f = f1 * 10 + f2

texto = ""

for i = 1 To 5

texto = texto & mid(BarCodes(f1), i, 1) + mid(BarCodes(f2), i, 1)

next

BarCodes(f) = texto

next

next

pdf.Text "30","225",texto

end if

xPos=55

p201=230

pdf.rect xPos, p201, fino, p11, "F"

xPos = xPos + fino + fino

pdf.rect xPos, p201, fino, p11, "F"

xpos = xpos + fino + fino

For n = 1 To Len(valor_barras) Step 2

cASC = cint(Mid(valor_barras, n, 2))

For i = 1 To 10 Step 2

If Mid(BarCodes(cASC), i, 1) = "0" Then

F = fino

Else

F = largo

End If

pdf.rect xpos, p201, F, p11, "F"

xpos = xpos + F

If Mid(BarCodes(cASC), i + 1, 1) = "0" Then

xpos = xpos + fino

Else

xpos = xpos + largo

End If

Next

Next

pdf.Text "30","235",xpos

pdf.rect xpos, p201, largo, p11, "F"

xpos = xpos + fino + largo

pdf.rect xpos, p201, fino, p11, "F"

end Sub

outra observação inseri o valor sendo:

"905224210 00020"

Nro rastreamento Nro Palete

foi impresso :2421000020

Se for possível dar uma apoio Agradeço