pdf

[cerimapd]

E' possibile che una pagina asp mi mostri in automatico i dati di un db direttamente in pdf ? Cioè creare di volta in volta ed in automatico una pagina pdf con i risultati dei dati richiesti ?
Io tutto questo l'ho visto fare dal sito di una azienda.
Qualcuno conosce il sistema?
Mi piacerebbe realizzarlo sul sito della mia società.

 

[PoLe]

Dai un'occhiata qui
Script Asp - FPDF (Asp Version) - Mr. WebMaster

:byebye:

 

[cerimapd]

Ho scaricato quello che mi hai consigliato ma non riesco proprio a capire come utilizzarlo.:incazz2:

 

[serpico]

scusate se mi intrometto vorrei capire na cosa ho creato la pagina per generare il pdf:

<%@language=vbscript%>
<!--#include file="fpdf.asp"-->
<%
 
Set pdf=CreateJsObject("FPDF")
pdf.CreatePDF()
pdf.SetPath("fpdf/")
pdf.SetFont "Arial","",16
pdf.Open()
pdf.AddPage()
pdf.Cell 40,10,"Hello Word!"
pdf.Close()
pdf.Output()
%>

vorrei però capire na cosa: io invece di stampare la frase Hello Word! vorrei stampare il nome di un utente di un db che in una pagina corretta di riepilogo di dati richiamo così:

<%=str_users_name%>

come faccio quindi a richiamarla nel generare il pdf?
per intenderci na cosa del genere (che ovviamente non funge!)

<%@language=vbscript%>
<!--#include file="fpdf.asp"-->
<%
 
Set pdf=CreateJsObject("FPDF")
pdf.CreatePDF()
pdf.SetPath("fpdf/")
pdf.SetFont "Arial","",16
pdf.Open()
pdf.AddPage()
pdf.Cell 40,10,"[COLOR="Red"]<%=str_users_name%>[/COLOR]"
pdf.Close()
pdf.Output()
%>

 

[serpico]

mi son portato avanti...
allora:
ho creato una connessione a parte per il pdf
connessione_pdf.asp

<%
Dim rs
Set rs=Server.CreateObject("ADODB.Connection")
rs.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("mdb-database/utenti.mdb")
%>

poi ho modificato la pagina che dovrebbe generare il pdf
pdf.asp

<%@language=vbscript%>
[B]<!--#include file="connessione_pdf.asp" -->[/B]
<!--#include file="fpdf.asp"-->
<%
[B]code=Request.QueryString("code")
Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM tbl_Authors WHERE code='" & str_code & "'"
rs.Open SQL, objConn
'Dim i,pdf[/B]

 
Set pdf=CreateJsObject("FPDF")
pdf.CreatePDF()
pdf.SetPath("fpdf/")
pdf.SetFont "Arial","",16
pdf.Open()
pdf.AddPage()
pdf.Cell 40,10, [B]"nome: " & RS("str_users_name")[/B]
pdf.Close()
pdf.Output()
[B]rs.close
objConn.close[/B]
%>

ma mi restituisce questo errore:

Tipo di errore:
ADODB.Recordset (0x800A0BB9)
Gli argomenti non sono di tipo valido, non sono compresi nell'intervallo consentito o sono in conflitto.
/area_riservata/pdf.asp, line 8

alla linea 8 c'è:

rs.Open SQL, objConn

in cosa sbaglio!?!

 

[serpico]

ok risolto! :mavieni:
in questo modo:

<%@language=vbscript%>
<!--#include file="fpdf.asp"-->
<%
code=Request.QueryString("code")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
          DSNtemp=dsntemp & "DBQ=" & server.mappath("utenti.mdb")
          sqlstmt = "SELECT * FROM tbl_Authors ORDER BY code DESC"
          Set rs = Server.CreateObject("ADODB.Recordset")
          rs.Open sqlstmt, DSNtemp, 3, 3
TotalRecs = rs.recordcount
Dim str_name
name = rs("name")
 
Set pdf=CreateJsObject("FPDF")
pdf.CreatePDF()
pdf.SetPath("fpdf/")
pdf.SetFont "Arial","",16
pdf.Open()
pdf.AddPage()
pdf.Cell 40,10, "nome: " & RS("name")
pdf.Close()
pdf.Output()
%>

:mavieni:
se sbaglio ditemelo!!!

 

[cerimapd]

Grazie pr l'aiuto. Ho provato e tutto funziona.:fonzie:

 

[serpico]

io invece jho problemi ad andare a capo nel testo e nel richiamare l'immagine

 

[serpico]

ho risolto per quanto riguarda l'andare a capo... non riesco ancora nell'immagine e adesso mi sono reso conto di un altro problema che vi spiego:
utilizzo l'editor xstandard per cui il testo che viene fuori quando creo un pdf è di questo tipo:
<!-- Generated by XStandard version 1.6.2.0 on 2007-06-27T15:57:30 --><p>testo...<em>testo...</em></p> potete aiutarmi?!?!