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:
No entiendo lo que pasa, he intentado con los ejemplos de la página e iba todo bien, pero al dinamizar obtengo este problema<%@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 %>
¿Alguna idea de lo que pueda estar pasando?, de antemano muchas gracias por la ayuda.
Atte,
Rodrigo
Chile