[Resolvido] PDF com FPDF - \n

[Elbrinner 0]

Boa tarde,

 

Estou com problema para criar um pdf com este componente.

 

Não consigo pular de uma linha para outra dentro do CELL ou do Multicell.

 

Já tentei com html e usando \n

 

pdf.Cell 70,30,"Texto \n con \n salto",1,0,"L","R"

 

obrigado desde já

 

Meu codigo:

 

<%Response.Buffer = True %>

<%
Response.Charset = "ISO-8859-1" 
%>
<!--#include file="conexaoSQL.asp"-->
<!--#include file="fpdf.asp"-->

<%
id = request.QueryString("id")
ComandoSQL = "SELECT  *  from pedido where idped = "&id&" "
Set rs = Conn.Execute(ComandoSQL)
cliente = rs("cliente")
ComandoSQL1 = "SELECT  *  from clientes where id = "&cliente&" "
Set rsc = Conn.Execute(ComandoSQL1)

Dim nomIma 
nomIma = "logo.jpg"



Set pdf=CreateJsObject("FPDF")
pdf.CreatePDF "P", "mm", "A4"


pdf.SetPath("fpdf/")


pdf.SetFont "Arial","",10

pdf.Open()
'pu
pdf.AddPage()
pdf.SetTitle "Netel Pro"
pdf.Image nomIma, 10, 1, 25,6, "jpg", "http://www.grupoacierta.eu"
'pdf.text 95,5, "FACTURA"


'pdf.Cell 60,5, ,1,0,"L"
'pdf.Cell 300,200,""& rsc("nombre")&"",1,1,"C"

'pdf.multicell 150,30, rsc("nombre") ,1,"R","R",1


pdf.Cell 120
pdf.Cell 70,30,"Texto \n con \n salto",1,0,"L","R"


'pdf.Cell 70,30, rsc("direccion"),1,0,"L","R"
'pdf.Cell 60,5, ""& rsc("nombre")&"",1,0,"L"
pdf.SetFont "Arial","B",14
pdf.write 0, "Axouxere Informática S.L"
pdf.ln 2
pdf.SetFont "Arial","B",12
pdf.write 5, "Crucero 1 - Extramundi"
pdf.ln 
pdf.write 5,  "15910 Padrón - A Coruña"
pdf.ln 
pdf.write 5, "e-mail: axouxere@axouxere.es"
pdf.ln 
pdf.write 5, "www.axouxere.es"
pdf.ln 10
pdf.write 5, rsc("nif")
pdf.ln 10
pdf.Cell 30,5," " ,1,0,"L"
pdf.Cell 30,5, " ",1,0,"L"
pdf.Cell 30,5, " ",1,0,"L"
pdf.Cell 30,5, " ",1,0,"L"
pdf.ln 15


pdf.Cell 35,5, "REFERENCIA",1,0,"L"
pdf.Cell 100,5, "DESCRIPCIÓN",1,0,"L"
pdf.Cell 15,5, "CANT.",1,0,"L"
pdf.Cell 20,5, "PRECIO",1,0,"L"
pdf.Cell 20,5, "TOTAL",1,0,"L"
pdf.Ln()
pdf.SetFont "Arial","",10


	pedido = rs("idped")
	ComandoSQL = "SELECT  *  from pedido_fijo where idped = "&pedido&""
	Set rsp = Conn.Execute(ComandoSQL)
	total = 0
	dim pedido2 
do while not rsp.eof
total = cint(rsp("unidad")) * rsp("precio")
pdf.Cell 35,5,rsp("cod"),1,0,"L"
pdf.Cell 100,5,rsp("nombre"),1,0,"L"
pdf.Cell 15,5,rsp("unidad"),1,0,"L"
pdf.Cell 20,5,formatnumber(rsp("precio"),2),1,0,"L"
pdf.Cell 20,5,formatnumber(total,2),1,0,"L"
pdf.Ln()
	
	'total = "[ Total: " & formatnumber(total,2)& "  €]" 
	rsp.MoveNext 
	Loop
	rsp.Close
	Set rsp = Nothing



'pdf.Cell 185,10, ""& pedido& "", 1,0, "L"
'pdf.multicell 185,5, rs("obs") , 1,0, "L"
'pdf.multicell 185,5, pedido2 , 1,0, "L"

'pdf.multicell 200,5, pedido&teste&total &"\n"  &teste&total,0,"L","L",1
'pdf.Ln()




'pdf.Output(server.MapPath("prueba.pdf")),F
pdf.Output()
pdf.Close()



rs.Close

Set rs= Nothing

conn.close

Set conn= Nothing
%>

[Ted k' 126]

tentou o Chr(13)??

 

pdf.Cell 70,30,"Texto "&Chr(13)&" con "&Chr(13)&" salto",1,0,"L","R"

[xanburzum 169]

referencia

[Elbrinner 0]

tentou o Chr(13)??

 

pdf.Cell 70,30,"Texto "&Chr(13)&" con "&Chr(13)&" salto",1,0,"L","R"

Não deu certo, a documentação fala que é \n mais tambem nao funciona.

 

Vi gente usando com php e funciona sem problema. Que estranho.

 

Estou usando a versão:

 

* Software : FPDF for Asp *

* Version : 1.01 beta *

* Date : 2003/11/15

 

 

Será que tem uma mais atualizada?

 

Qualquer diga é bem vinda.

 

Obrigado

 

referencia

 

o meu servidor não tem nenhum componente de PDF instalado.

 

Obrigado pela dica.

 

A propriedade CELL não aceita espaço pelo o que eu vejo. tenho que usar Multicell só que não consigo colocar aonde eu quero e nem colocar varias colunas.

 

Obrigado

[Elbrinner 0]

resolvi o problema com SetXY e vbCrLf

 

obrigado pelas dicas.

[Anderson Murakami 0]

em vez de usar

' texto \n texto'

utilize

'text'."\n".' texto ';

 

no php funciona direitinho !

 

RGDs

Anderson