Cita:
Iniciado por Tarecito 
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
------------------------------------------------------------------------
Estimado, intente probar tu ejemplo, basicamente necesito generar un listado de un curso., pero no funcionó, esto es lo que hice.
<%@language="jscript"%>
<% Set cnx = Server.CreateObject("ADODB.Connection")........... ....%>
<!--#include file="../../fpdf.asp"-->
<%
var pdf=new FPDF();
pdf.CreatePDF();
pdf.SetPath("../../fpdf");
pdf.SetFont("helvetica","",12);
pdf.Open();
pdf.AddPage();
sql = " exec spRec_ActaCurso_V2 " & _
"'" & session("url_doc_pgma_test") & "'," & _
"'" & session("url_doc_carrera_test") & "'," & _
"'" & session("url_doc_semestre_test") & "'," & _
"'" & session("url_doc_catedra_test") & "'," & _
"'" & session("url_doc_seccion_test") & "'"
set rst_lista = cnx.Execute(sql)
If Not(rst_lista.EOF) then
rst_lista.MoveFirst
Do While Not(rst_lista.EOF)
longi = (len(rst_lista("Nombre")) \ 26 ) + 1
d1=intCuantos + 1
d2=rst_lista("Cod_Alumno")
d3=UCASE(rst_lista("Nombre"))
d4=rst_lista("E_Mail")
''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
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.Ln(0)
'' hasta aqui deberia ir en la funcion TablaColoreadaData
rst_lista.MoveNext
Loop
End If
rst_lista.Close
cnx.Close
Set rst_lista = Nothing
set cnx = nothing
pdf.Output();
pdf.Close();%>
que es lo que esta malo en el ASP el error.
de ante mano muchas gracias