Codigo de barras em PDF

[Diegodargos 0]

Bom dia,

 

Estou tentando mostrar um código de barras em um pdf.

 

Meu programa está assim:

<%

 

set pdf=CreateJsObject("FPDF")
Session.LCID=1046

pdf.CreatePDF "P","mm","A4"
pdf.SetPath("./")
pdf.Open()

pdf.AddPage()

os="abc123"
os=Code39Barcode(os)
setor=Code39Barcode(setor)
retr=Code39Barcode(retr)
pdf.SetFont "Arial","","9"
pdf.text "5", "5",os


pdf.Close()
pdf.Output()


%>

 

Ele deveria gerar as barrinhas mas ele gera isso:

 

<img src="../../Imagens/bar_blk.gif" width="2" height="40" alt="" /><img src="../../Imagens/bar_wht.gif" width="2" height="40" alt="" />...

 

Se eu tento colocar como imagem ao invés de colocar como texto ele gera o seguinte erro:

 

Error Type:
Server.MapPath(), ASP 0214 (0x80004005)
The Path parameter excedes the maximum length allowed.
/ferramentaria/Portal_ASP/Planusi/includes/images.asp, line 33

 

Talvez se eu conseguisse concatenar todas as barrinhas do código de barras em apenas 1 imagem, pode ser que funcione, é possivel fazer isso?

 

 

 

 

[xanburzum 169]

o caminho esta correto ?

 

verifique se o caminho da imagem esta correto

[Diegodargos 0]

Sim está correto, porque se eu dou um response.write antes de gerar o pdf ele mostra o código de barras certinho, quando tento colocar ele no pdf dá este erro.

 

A questão é a seguinte, preciso que este formulário seja impresso, sem ser com pdf consigo imprimir o formulário e o cod de barras, porem a formatação da página sai diferente em cada pc, por isso queria gerar o pdf.

 

existe como manter uma formatação da página para a impressão sair igual em cada pc?

 

 

ALGUEM AJUDA AEEEEEEE

 

To travado nisso e nao vejo solução.

 

O código de barras é a junção de varias imagens, tem como transformar isso em uma imagem só??

No fpdf eu nao consigo mostrar o código de barras pq ele nao consegue entender uma variavel com varias imagens.

[xanburzum 169]

a geração do código e automatizada, vc até pode gerar o código, e usar um componente de iamgem para recortar na posição correta das barras e inserir como imagem. e veja se Path não começar com uma barra, o método MapPath retorna um caminho relativo para o diretório do arquivo .asp ser processado ....

tenta assim:

 

Set PDF = Server.CreateObject("Persits.PDF")
Set StartDoc = Pdf.CreateDocument
Set Page = StartDoc.Pages.Add
Page.Canvas.DrawText "N°. "&VARIAVEL, "x=0; y=550; width=570; alignment=right; size=15", StartDoc.Fonts("Helvetica")
Page.Canvas.DrawText "

TEXTO "&VARIAVEL&" TEXTO "&VARIAVEL&" TEXTO

", "x=30; y=500; width=540; size=15; spacing=2; html=true", StartDoc.Fonts("Helvetica")
aqui é só um exemplo, voce tem que adaptar ao seu uso, ou seja monte o boleto ja em PDF
Filename = StartDoc.Save( Server.MapPath("PASTA/"&NOMEDOARQUIVO&".pdf"), false )

[Diegodargos 0]

Nao vai funcionar, o servidor aqui nao tem esse persits.

=/