
27/04/2007, 09:43
|
| | Fecha de Ingreso: agosto-2004
Mensajes: 131
Antigüedad: 20 años, 7 meses Puntos: 2 | |
Al crear PDF dinámico con FPDF me arroja un archivo en blanco Holas,
Tengo el siguiente problema: estoy intentando crear un archivo pdf con FPDF en forma dinámica, sin embargo lo que me entrega es un archivo pdf completamente en blanco.
El código que uso es el siguiente:
Código:
<%@language=vbscript%>
<!--#include file="fpdf.asp"-->
<!--#include file="conexiones/sspi.conn.inc.asp"--><%
sqlSelect = "SELECT nombre_usuario, rut_usuario, email_usuario FROM usuario"
set objUsuario = conn.execute(sqlSelect)
if not ( objUsuario.EOF ) then
'Obtención de los registros del recordset
dim tblUsuario
tbl_nombre_usuario = 0
tbl_rut_usuario = 1
tbl_email_usuario = 2
tblUsuario = objUsuario.GetRows
objUsuario.Close
set objUsuario = nothing
conn.close
set conn = nothing
'Creación del documento PDF
Set pdf = CreateJsObject("FPDF")
pdf.CreatePDF "P","pt","Letter"
pdf.SetPath("fpdf/")
pdf.SetFont "Arial","",16
pdf.Open()
pdf.AddPage()
pdf.Image "images/logo_chico.jpg", 20, 10, 120, empty, "JPG", "http://www.ucorp.cl"
pdf.Cell 100, 100, "Prueba de creación de PDF's on-line"
alto = 25
cY = 150
'lo limito solo a 10 debido a que no he programado aún el cambio de página
'for j = 0 to ubound(tblUsuario,2)
for j = 0 to 10
pdf.setXY 100, cY
pdf.Cell 250, alto, tblUsuario(tbl_nombre_usuario, j), 1, 1, "C"
pdf.SetX 350
pdf.Cell 100, alto, tblUsuario(tbl_rut_usuario, j), 1, 1, "C"
pdf.SetX 450
pdf.Cell 150, alto, tblUsuario(tbl_email_usuario, j), 1, 1, "C"
cY = cY + alto
next
pdf.Output()
pdf.Close()
else
response.write "No se encontraron usuarios disponibles"
end if %>
No entiendo lo que pasa, he intentado con los ejemplos de la página e iba todo bien, pero al dinamizar obtengo este problema
¿Alguna idea de lo que pueda estar pasando?, de antemano muchas gracias por la ayuda.
Atte,
Rodrigo
Chile |