| si, tienes razón. El código es asi:
.
.
.
sql = "tu consulta"
set rs = conexion.Execute(sql)
If Not(rs.EOF) then
rs.MoveFirst
Do While Not(rs.EOF)
longi = (len(rs("obs_desp")) \ 26 ) + 1
d1=Cstr(rs("fecha_desp"))
d2=Trim(rs("hora_desp"))
d3=rs("origen")
d4=rs("destino")
d5=rs("des_despacho")
d6=rs("obs_desp")
'pdf.TablaColoreadaData d1,d2,d3,d4,d5,d6
' la idea es poner todo lo q está debajo de este comentario dentro de la funcion
' TablaColoreadaData ubicado en alrchivo fpdf.asp
pdf.SetFillColor 224,235,255
pdf.SetTextColor(0)
pdf.SetFont("")
'pdf.Cell 10,4,"",0,0,"L"
pdf.Cell(10)
pdf.Cell 18,4,d1,"L",0,"C",0
pdf.Cell 14,4,d2,"L",0,"C",0
pdf.Cell 26,4,d3,"L",0,"L",0
pdf.Cell 42,4,d4,"L",0,"L",0
pdf.Cell 37,4,d5,"L","L",0
pdf.MultiCell 45,4,d6,1,"L"
posx = pdf.GetX()
pdf.Line 20,pdf.GetY(),202,pdf.GetY()
if longi > 2 then
posx = (longi-1) * 4
else
posx = 4
end if
pdf.Line 20,pdf.GetY(),20, pdf.GetY()-posx
pdf.Line 38,pdf.GetY(),38, pdf.GetY()-posx
pdf.Line 52,pdf.GetY(),52, pdf.GetY()-posx
pdf.Line 78,pdf.GetY(),78, pdf.GetY()-posx
pdf.Line 120,pdf.GetY(),120, pdf.GetY()-posx
pdf.Ln(0)
' hasta aqui deberia ir en la funcion TablaColoreadaData
rs.MoveNext
Loop
End If
pdf.Output()
este es el codigo basico, tengo q depurarlo un poco para dibujar las lineas usando un for para no repetir tanto código :P. debo aclarar q hay una parte q no he puesto q es la cabecera de la tabla, ya q lo tengo en una función dentro del fpdf.asp
__________________
Tarecito |