generar pdf desde asp

Shiryu_Libra · #**181** (**permalink**) 03/03/2007, 13:07

alguno de ustedes intento poner 2 imagenes dentro del documento, por mas que muevo las coordenadas, se empalman las imagenes.... alguien

Código:

'imagen a la izquierda
pdf.ln()
pdf.Image "../ima/logo_son_gris.jpg", pdf.GetX(10), pdf.GetY(20),0
'imagen a la derecha
pdf.Image "../ima/smallupn.JPG", pdf.GetX(170), pdf.GetY(20),0
pdf.ln()

Shiryu_Libra · #**182** (**permalink**) 04/03/2007, 23:44

'imagen a la izquierda
pdf.Image "../ima/logo_son_gris.jpg", 10, 20, 0
'imagen a la derecha
pdf.Image "../ima/smallupn.JPG", 180, 20, 0

ya me respondi solo otra ves

, espero funcione para alguien mas

vnam07 · #**183** (**permalink**) 09/03/2007, 04:40

Me interesa mucho este tema pero todo el código y los comentarios que veo hacen referencia a un archivo que no logro localizar:



Me podéis decir donde puedo ver esa página?

Gracias

vnam07 · #**184** (**permalink**) 09/03/2007, 05:01

Cita:

Iniciado por vnam07

Me interesa mucho este tema pero todo el código y los comentarios que veo hacen referencia a un archivo que no logro localizar:



Me podéis decir donde puedo ver esa página?

Gracias

Ya las he localizado, las iba a poner aquí por si alguién tenía el mismo problema que yo pero el sistema no me lo permite.

Si alguién quiere, que me mande un privado y se las doy.
Saludos,

vnam07 · #**185** (**permalink**) 09/03/2007, 05:23

Nada, el error: FPDF error: Unable to create output file: prueba.pdf no hay forma de evitarlo

Ya le he dado permisos totales a los usuarios a la carpeta pero no es una solución, además, no puedo hacer esto en el servidor.

me bajé la versión 1.01 de las extensiones del fpdf.asp y sigo igual

quién me echa una mano?

Gracias

Myakire · #**186** (**permalink**) 09/03/2007, 08:23

Permisos al usuario IUSR_NomPc, con eso tienes

Por cierto, en los post interiores de este mensaje deben estar las ligas a las librerías

santuariosw · #**187** (**permalink**) 03/04/2007, 12:58

Podria poner una imagen de fondo en el pdf ?? es que quiero hacer algo asi como que el pdf me muestre algo asi como una aplicacion que una vez que alguien ha insertado sus datos yo le ponga un link (a una busqueda deacuerdo a ciertos parametros) y me muestre los datos de esta persona en un pdf pero en formato de aplicacion, ya la aplicacion esta escaneada y la tengo en una imagen este es el motivo por el cual quiero ponerla de fondo thanks a todos

Myakire · #**188** (**permalink**) 03/04/2007, 14:03

No hay problema, solo coloca la imagen antes del escribir el contenido y listo; la imagen quedará como marca de agua bajo el contenido.

damorcor · #**189** (**permalink**) 16/04/2007, 08:47

Muy buenas,
alguien sabe como hacer un recuadro o una linea con puntos o - - - - ?
He visto que existe SetLineStyle pero no se los parametros

Gracias de antemano.

Myakire · #**190** (**permalink**) 16/04/2007, 09:15

http://www.aspxnet.it/forum/topic.as...archTerms=dash
http://www.aspxnet.it/forum/topic.asp?TOPIC_ID=324

lenz · #**191** (**permalink**) 16/04/2007, 14:31

Estoy intentado crear un pdf desde un formulario que tengo en html, tengo varios inconvenientes dejo el codigo y paso a explicar que es lo que necesito

Código:

<%@language="vbscript"%> 
<!--#include file="fpdf.asp"--> 
<%
Dim cadena
%>
<html>
<head><title>Generar PDF con ASP</title> </head>
<body> 
<% 
cadena = "Archivo"
'conectamos con el FSO
set confile = createObject("scripting.filesystemobject") 

'volvemos a abrir el fichero para lectura
set fich = confile.OpenTextFile(server.MapPath("FAP_ORIGINAL.html"))

'leemos el contenido del fichero
cadena = fich.readAll()

'cerramos el fichero
fich.close() 

Set pdf=CreateJsObject("FPDF") 
pdf.CreatePDF() 
pdf.SetPath("fpdf/") 
pdf.SetFont "Arial","",12
pdf.Open() 
pdf.AddPage() 
pdf.cell 42,10, cadena
pdf.Output("prueba.pdf"), true
pdf.Close() 
%> 
</body>
</html>

Lo que intento haces es pasar el archivo que tengo en html a pdf, el archivo es un formulario que desearia que este como pdf para que el usuario lo baje.

Por otro lado necesito despues hacer este formulario dinamico y poder crear el pdf con los datos que lleno el usuario y que queden igual que el formato que tiene el html.

Mi problema es que al pasar el archivo lo que me genera es el codigo html en el pdf y no la salida de pantalla, alguna idea de como puedo hacer para solucionar esto.

Otra cosa es que en Explorer cuando quiero ir al pdf me tira el error que ya han mostrado aca.

Código:

%PDF-1.3 3 0 obj <> endobj 4 0 obj <> stream 2 J 0.57 w BT /F1 12.00 Tf ET BT 31.19 795.77
Td ( ) Tj ET endstream endobj 1 0 obj <> endobj 5 0 obj <> endobj 2 0 obj <> >> endobj 6 0
obj << /Producer (FPDF for ASP v.1.01 beta by Lorenzo Abbati [www.aspxnet.it]) 
/CreationDate (D:200731117544) >> endobj 7 0 obj << /Type /Catalog /Pages 1 0 R 
/OpenAction [3 0 R /FitH null] /PageLayout /OneColumn >> endobj xref 0 8 0000000000 65535 f
0000004909 00000 n 0000005092 00000 n 0000000009 00000 n 0000000087 00000 n 
0000004996 00000 n 0000005180 00000 n 0000005304 00000 n trailer << /Size 8 /Root 7 0 R 
/Info 6 0 R >> startxref 5407 %%EOF

En el Firefox me muestar el html, pero en el IE me tira el error.

Muchas gracias

kacioz · #**192** (**permalink**) 23/04/2007, 10:45

hola compañeros del foro, acabo de iniciar a trabajar con el fpdf en php pero a la hora de que abro la pagina el pdf no se abre, pero me dice que si deceo descargar el archivo, alguien me puede decir que es lo que pasa y como puedo solucionar el problema de ante mano muchas gracias....

Myakire · #**193** (**permalink**) 23/04/2007, 11:22

Cita:

pero me dice que si deceo descargar el archivo

No tienes el Acrobat instalado

cuyawero · #**194** (**permalink**) 23/04/2007, 21:51

Hola bueno primero que nada soy principiante en esto de asp y me encantaria saber como genero un pdf con asp, ya lo he intentado bastante y nada de nada...de hecho he descargado todo lo que han comentado aqui en el foro y nada seria de mi gran agrado que me ayuden ya que necesito eso urgente... el error que me da en el navegador es el siguiente:

Script error detected at line 290.
Source line: /************************************************** **************************
Description: Expected statement

Shiryu_Libra · #**195** (**permalink**) 24/04/2007, 01:09

Cuyawero, bienvenido al foro... espero que hayas encontrado interesante la lectura, como complementacion de esta lectura... pasate por este POST
podras mirar como es la creacion de PDF con tablas

suerte

cuyawero · #**196** (**permalink**) 25/04/2007, 20:36

Hola Shiryu_Libra, espero que estes bien y muchas gracias por el post.. ya lo he leido pero sabes nada sigo sin enteder esto de creacion de pdf con asp por favor ayudame ya he hecho la mayoria de las cosas que dicen en los post.. por favor necesito tu ayuda!!!!!!!!!!

Myakire · #**197** (**permalink**) 26/04/2007, 08:03

Cita:

...ya he hecho la mayoria de las cosas que dicen en los post..

Necesitas ser más específico ..... qué no es lo que te funciona exactamente?

cuyawero · #**198** (**permalink**) 30/04/2007, 23:52

Hola mis estimados activos del foro... por favor necesito esa gran ayuda no se si es porque yo tengo el xp home que no me genera el pdf pq ya he probado todos los codigos que han publicado en todos los post y nada... yo me descargue el Baby Web Server, pero ahora no se si espo es por lo que me genera el error.. ayudenme por favor!!!!!!! lo necesito hacer para ya!!!!!!! disculpenme pero necesito ayuda!!!!!!!!!

Myakire · #**199** (**permalink**) 02/05/2007, 07:27

ya modificaste permisos?

verinchi · #**200** (**permalink**) 02/05/2007, 11:07

Por lo que veo, en la línea 290 (Fijate bien de cuál de los archivos) está mal el comentario.
Al iniciar un comentario debería ser //*********** o // lo que sea, pero la barra es doble, y en tu error aparece una sola barra.
Puede ser eso, de lo contrario, fijate en la línea 290 de cuál de los archivos indica el error, y analizala un poco a ver qué es lo que hace en esa línea.
También fijate como bien dice Myakire, el tema de los permisos, suele dar bastantes dolores de cabeza :)

cuyawero · #**201** (**permalink**) 02/05/2007, 21:42

Muchas Gracias, por ser tan pacientes muchachos....pero ya imprime algo en pdf

cuando se me vaya complicando mas la cosas les lanzo un gritico,creo q era el baby web server ahora estoy trabajndo con el iis y todo va excelente

....
Saludos...!!!!!!!!!!!!!!!!!!

cuyawero · #**202** (**permalink**) 02/05/2007, 23:57

Bueno ahora comenzaron las dudas con respecto a insertar una imagen dentro del documento... lo hago de la siguiente manera

pdf.Image "hawaii.jpg", 150,10,172,105, "JPG"

y cuando me voy al servidor me genera este error yo lei algo q dijo cerinchi de actualizar el fpdf pero no entiendo muy bien a ver si alguien me dnd tengo ese codigo!!
Aqui les dejo el error:
<B>FPDF error: </B>Unable to create output file: c:\inetpub\wwwroot\radB5409.tmp
lo que entiendo es q m dice q tengo q crear un archivo de salida pero saben ni idea a ver quien me ayuda..!

Shiryu_Libra · #**203** (**permalink**) 03/05/2007, 00:35

recuerda que el archivo de salida, debe estar dentro de una carpeta con privilegios de escritura

y respecto a la actualizacion del fpdf... FPDF1.53

suerte

Constantine · #**204** (**permalink**) 05/06/2007, 12:52

Tengo un problema, no puedo poner 2 imagenes en un archivo PDF, este tiene 2 paginas y lleva una imagen diferente en cada pagina, alguien a hecho algo parecido que me pueda ayudar ? ? ?

Shiryu_Libra · #**205** (**permalink**) 05/06/2007, 13:12

Constantine, para evitarte ese tipo de problemas lo que puedes hacer
es crear un sub

Código PHP:

  sub cabeza()
    pdf.SetFont "Arial","",14
    pdf.Image "../ima/imagen_dercha.jpg", 20, 20, 0
    pdf.Image "../ima/imagen_izquierda.JPG", 175, 20, 0
end sub

es mas sencillo realizarlo de esta forma, ahora para la construccion dinamica, pudieras realizarlos de esta manera mira....

Código PHP:

  server.ScriptTimeout=10&#37;>
<!--#include file="fpdf.asp"--> <%
Set pdf=CreateJsObject("FPDF") 
    utilerias()           'asignacion de las caracteristicas de la pagina
    pdf.Open() 
        pdf.AddPage()
        cabeza()       'establece el encabezado de la empresa
        subtitulos()   'subtitulos de la pagina
        contenido()  'contenido de la pagina
        pie()            nota al pie
        pdf.Output()
    pdf.Close() 
set pdf=nothing

solo una idea, si te fijas donde dice subtitulos, es donde mando llamar a este sub, el cual ya tiene formateado donde estaran las imagenes

suerte

ellygm · #**206** (**permalink**) 18/07/2007, 12:56

Cita:

Iniciado por Myakire

Permisos al usuario IUSR_NomPc, con eso tienes

Por cierto, en los post interiores de este mensaje deben estar las ligas a las librerías

soy nueva en asp si puedieras decirme donde encuentro al usuario IUSR_NomPc para darle el permiso en donde le doy el permiso por que se supone que ya los tiene

Myakire · #**207** (**permalink**) 19/07/2007, 07:19

Cita:

Iniciado por ellygm

soy nueva en asp si puedieras decirme donde encuentro al usuario IUSR_NomPc para darle el permiso en donde le doy el permiso por que se supone que ya los tiene

¿Cómo puedes suponer que ese usuario ya tiene los permisos si no sabes donde encontrarlo?

Use usuario llamado IUSR - guión bajo - El nombre de EL SERVIDOR, por ejemplo IUSR_SERVIDOR, o bien IUSR_MANUEL en el caso de que la pc que tiene instalado el IIS se llame o servidor o manuel.

Simplemente ve a la carpeta donde el fpdf creará el archivo y dale clic derecho, vas a Compartir y Seguridad -> Seguridad, seleccionas al usuario en cuestión y le das permiso de escritura.

That's all folk!

dblanco · #**208** (**permalink**) 22/07/2007, 04:14

Buenas,

os paso este código que he generado para escribir en PDF automáticamente una Tabla con los recordsets que deseemos. El tamaño de la fuente se ajusta automáticamente a un A4 apaisado.

Código:

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

<%
Dim pdf, rs, strSQL, px, mm, fill, campo, espacios
Dim x, y
Dim ancho()
Dim cabecera()
Dim data()
Set pdf=CreateJsObject("FPDF")
pdf.CreatePDF "L","mm","A4"
pdf.SetPath("fpdf/")
pdf.SetFont "Arial"
pdf.Open()
pdf.AddPage()
llenar_tablas()
escribir_tablas()
pdf.Close()
pdf.Output()

function llenar_tablas()
	set rs = Server.CreateObject("ADODB.Recordset")
	strSQL = "SELECT * FROM <tu_tabla>"
	rs.Open strSQL, <tu_conexion>
	x = 0
	for each campo in rs.Fields
		redim preserve cabecera(x)
		cabecera(x) = ucase(campo.Name)
		redim preserve ancho(x)
		ancho(x) = len(cabecera(x))
		x = x + 1
	next
	y = 0
	Do While Not(rs.EOF)
		x = 0
		for each campo in rs.Fields
			if len(campo.Value) > ancho(x) then ancho(x) = len(campo.Value)
			redim preserve data(y)
			data(y) = campo.Value
			x = x + 1
			y = y + 1
		next
		rs.MoveNext
	Loop
	rs.close
	set rs = nothing
	for x = 0 to ubound(ancho)
		espacios = espacios + ancho(x)
	next
	if 282/espacios <= 1.1 then
		px = 4
		mm = 1.1
	elseif 282/espacios <= 1.5 then
			px = 5
			mm = 1.45
	elseif 282/espacios <= 1.6 then
			px = 6
			mm = 1.55
	elseif 282/espacios <= 1.9 then
			px = 7
			mm = 1.80
	elseif 282/espacios <= 2.1 then
			px = 8
			mm = 2.05
	elseif 282/espacios <= 2.3 then
			px = 9
			mm = 2.20
	else
			px = 10
			mm = 2.54
	end if
	for x = 0 to ubound(ancho)
		if ancho(x) > 5 then
			ancho(x) = int(ancho(x) * mm)
		else
			ancho(x) = 8
		end if
	next
end function

function escribir_tablas()
    'Colores, ancho de línea y fuente en negrita
	pdf.SetTextColor 255
    pdf.SetDrawColor 0,0,0
	pdf.SetFillColor 255,0,0
    pdf.SetLineWidth 0.1
    pdf.SetFont "","B",px

    'Cabecera
    for x = 0 to ubound(cabecera)
        pdf.Cell ancho(x),5,cabecera(x),1,0,"C",1
	next
    pdf.Ln()
    
  	'Restauración de colores y fuentes
    pdf.SetFillColor 224,235,255
   	pdf.SetTextColor 0 
    pdf.SetFont ""
	
	'Datos
	x  = 0
	fill = 0
	do while x < ubound(data)
		for y = 0 to ubound(cabecera)
            pdf.Cell ancho(y),5,data(x+y),1,0,"L", fill
		next
	    pdf.Ln()
		x = x + ubound(cabecera) + 1
		if fill = 0 then
			fill = 1
		else
			fill = 0
		end if
	loop
end function
%>

espero que le sea útil a más de uno.

Saludos

dblanco · #**209** (**permalink**) 22/07/2007, 05:12

he añadido un ajuste por si hacemos un query de pocas columnas y queremos imprimir en vertical. Partimos de la idea que enviamos si es horizontal o vertical mediante la variable "orientacion", por defecto se imprimirá apaisado si no enviamos variable alguna.

Añado sólo el código nuevo que sustituye el anterior:

Código:

orientacion = request.querystring("orientacion")
if orientacion = "" then orientacion = "L"

pdf.CreatePDF orientacion,"mm","A4"

	if orientacion = "L" then
		if 282/espacios <= 1.1 then
			px = 4
			mm = 1.1
		elseif 282/espacios <= 1.5 then
			px = 5
			mm = 1.45
		elseif 282/espacios <= 1.6 then
			px = 6
			mm = 1.55
		elseif 282/espacios <= 1.9 then
			px = 7
			mm = 1.80
		elseif 282/espacios <= 2.1 then
			px = 8
			mm = 2.05
		elseif 282/espacios <= 2.3 then
			px = 9
			mm = 2.20
		else
			px = 10
			mm = 2.54
		end if
	end if
	if orientacion = "P" then
		if 196/espacios <= 1.1 then
			px = 4
			mm = 1.05
		elseif 196/espacios <= 1.5 then
			px = 5
			mm = 1.45
		elseif 196/espacios <= 1.6 then
			px = 6
			mm = 1.55
		elseif 196/espacios <= 2 then
			px = 7
			mm = 1.95
		elseif 196/espacios <= 2.3 then
			px = 8
			mm = 2.25
		elseif 196/espacios <= 2.6 then
			px = 9
			mm = 2.55
		else
			px = 10
			mm = 2.95
		end if
	end if

that's all folks !!!

dblanco · #**210** (**permalink**) 24/07/2007, 03:51

otra cosa para todos aquellos que no consiguen guardar el archivo, aunque le den privilegios de escritura al directorio destino.

Hay que modificar la función fopen del archivo includes/basics.asp de la siguiente forma:

linea 37 (v. 1.01 beta), originalmente pone

Código:

case "w" : v = 2;c=true;p=name;break;

sustituir por

Código:

case "w" : v = 2;c=true;p=Server.MapPath(name);break;

Pero es que además esta librería está pensada para que cuando guardamos lo haga directamente en el servidor sin aparecer el browser, a no ser que cuando llamemos a la función pdf.Output pongamos dejemos el nombre del fichero en blanco, con lo cual por defecto utiliza el nombre del archivo que llama a la función.

A mí personalmente, no me es útil tener un .pdf en el servidor, sino que deseo que cuando genero un .pdf sea para que el cliente lo guarde y como no me gusta que utilice el nombre de la página, sino es que le especifico, he modificado un poco la función Output del archivo fpdf.asp.

La cosa quedaría así, a partir de la línea 869 (v. 1.01 beta):

Código:

		//if(xfile==""){
			if(xdownload){
						Response.ContentType = "application/octet-stream";
						Response.AddHeader("Content-disposition", "attachment; filename=" + xfile);
					}
					else
					{
						Response.ContentType = "application/pdf"
						Response.AddHeader("Content-Disposition","inline");
					}
			if (!this.hasBinary){
				Response.Write(this.buffer)}
			else{
				xfile=Server.MapPath(lib.fso.GetTempName())
				xf=lib.fopen(xfile,"wb");
				if(xf.number)this.Error("Unable to create output file: " + xfile);
				lib.fwrite(xf,this.buffer);
				lib.fclose(xf);
				outB = Server.CreateObject("ADODB.Stream")
				outB.Type = 1
				outB.Open()
				outB.LoadFromFile (xfile)
				Response.BinaryWrite(outB.Read())
				outB.Close()
				lib.fso.DeleteFile(xfile);
				}
		//}
			//else

				//{
				//xf=lib.fopen(xfile,"wb");
				//if(xf.number)this.Error("Unable to create output file: " + xfile);
				//lib.fwrite(xf,this.buffer);
				//lib.fclose(xf);
				//}

Se podrían dejar la 2 opciones, osea que guarde al servidor o guarde donde queramos, con por ejemplo otro parámetro más donde especifiquemos que opción preferimos, cosa que sería fácilmente implementable, comparando ese nuevo parámetro con true o false y la opción que deseemos iría al ultimo else que acabamos de convertir en comentarios.

Buenos pues esto es todo, saludos.