Foros del web, para los que viven de bits

Hola a todos, .. resulta que tengo un reporte creado con fpdf desde asp y tengo un detalle al imprimir un campo de la base de datos pero es muy largo y no puedo hacer que se ajuste al tamaño del documento.. y no puedo establecerle el margen derecho, simplemente no toma el valor que le asigno .. ayuda porfavor!

¿código?

¿ejemplo del contenido de ese campo largo?

Aquí anexo código Myakire, Gracias!!

<%@language=vbscript%>

<!--#include file="fpdf.asp"-->
<%

Conexion


Query


g1 = nombre("nombre")


Set pdf=CreateJsObject("FPDF")
pdf.CreatePDF "L","mm","Letter"
pdf.SetPath("fpdf/")
pdf.SetFont "Arial","",10
pdf.Open()
pdf.SetMargins 20,20,50

'pdf.SetLeftMargin 40
'pdf.SetRightMargin 300
'pdf.SetTopMargin 30

pdf.AddPage()
pdf.Cell 40,25, g1


pdf.Image "imagenes/img.jpg", 21, 7, 33, 10, "JPG"

Do while not datos.eof



Query



g2 = datos("acuerdo")
g3 = datos("fecha_creacion")

pdf.SetTextColor 0,0,0
pdf.ln()
pdf.Cell 40,8, "Fecha Acuerdo: " & datos("fecha_creacion")
pdf.ln()
pdf.Cell 40,8, "Acuerdo: " & g2
pdf.ln()



If datos2.eof then
else
do while not datos2.eof
g3 = ">" & datos2("fecha")
g4 = datos2("enlace")
g5 = datos2("comentario")

pdf.SetTextColor 0,128,0
pdf.Cell 40,10,g3
pdf.Cell 40,10,g4 &":"
pdf.ln()
pdf.Cell 40,10,g5 <-- campo extenso (150 caracteres), y sale del margen der. del documento
pdf.ln()

datos2.movenext
loop
end if

datos.movenext
loop
pdf.Close()
pdf.Output()
%>

aaahhh

Bueno, para lo que ocupas puedes usar el método pdf.MultiCell en lugar del método pdf.Cell, para que esos caracteres restantes se vayan al renglón de abajo.

Otra cosa que puedes hacer es entrar el sitio del fpdf (in italiano) y bajarte la extensión table (pdf.LoadExtension("table")), que te permite manejar tablas tipo HTML, con columnas y renglones, y el contenido se ajusta a los propiedades que definas.

Saludos

Muchas Gracias Myakire, Problema resuelto!!



Salu2!!