alla fine ci sono riuscita anche se ho ancora tante problematiche da risolvere, come impostare la X e la Y delle scritte, se il pdf.Cell può essere duplicato o devo usare direttamente il multicell...
e non per ultimo un problema di inserire un ciclo while all'interno del documento pdf.
Se mi potete aiutare...
vi scrivo quel che ho fatto fin'ora nel caso potesse aiutare qualcuno:
Con il secondo .write non riesco a centrare a sinistra il testo stampato... ma rimane un simil centro (non è neppure totalmente centrato)
<%nome_formula = Replace(Request.Form("nome_formula"),"'","''")%>
<%descrizioneF = Replace(Request.Form("descrizioneF"),"'","''")%>
<%
Dim rs_formule__MMColParam
rs_formule__MMColParam = "1"
If (Request.QueryString("id_formula") <> "") Then
rs_formule__MMColParam = Request.QueryString("id_formula")
End If
Dim rs_formule
Dim rs_formule_numRows
Set rs_formule = Server.CreateObject("ADODB.Recordset")
rs_formule.ActiveConnection = MM_locale_STRING
rs_formule.Source = "SELECT * FROM FORMULA WHERE ID_FORMULA = " + Replace(rs_formule__MMColParam, "'", "''") + ""
rs_formule.CursorType = 0
rs_formule.CursorLocation = 2
rs_formule.LockType = 1
rs_formule.Open()
rs_formule_numRows = 0
Dim rs_ingredienti__MMColParam
rs_ingredienti__MMColParam = "1"
If (Request.QueryString("id_formula") <> "") Then
rs_ingredienti__MMColParam = Request.QueryString("id_formula")
End If
Dim rs_ingredienti
Dim rs_ingredienti_numRows
Set rs_ingredienti = Server.CreateObject("ADODB.Recordset")
rs_ingredienti.ActiveConnection = MM_locale_STRING
rs_ingredienti.Source = "SELECT * FROM ingredientiAss WHERE ID_FORMULA = " + Replace(rs_ingredienti__MMColParam, "'", "''") + ""
rs_ingredienti.CursorType = 0
rs_ingredienti.CursorLocation = 2
rs_ingredienti.LockType = 1
rs_ingredienti.Open()
rs_ingredienti_numRows = 0
nome_formula =(rs_formule.Fields.Item("NOME_FORMULA").Value)
nome_ingrediente = (rs_ingredienti.Fields.Item("NOME_INGREDIENTI").Va lue)
Set pdf=CreateJsObject("FPDF")
pdf.CreatePDF()
pdf.SetPath("fpdf/")
pdf.Open()
pdf.SetFont "Arial","B",16 ' il "B" è il grassetto, la stringa vuota vuol dire normale, "I" corsivo,
' "U" sottolineato
pdf.AddPage()
pdf.SetFillColor 202,216,221 'imposta il colore della cella del parametro FILL dell'oggetto CELL
pdf.Cell 190,9,nome_formula,1,1,"C",1 'primo carattere è la larghezza della cella, se è 0 la cella si estende
' dalla parte del margine destro - secondo parametro altezza della cella di defaul è 0 - terzo parametro
' stringa da stampare - quarto param. indica se bisogna mettere i bordi intorno alla cella 0 nessun bordo
' 1 ok bordo oppure: L: sinistro T: superiore R: destro B: inferiore - quinto param. posizione corrente
' dopo la chiamata: 0 a destro, 1 all'inzio della linea successiva, 2 in basso - align permette di allineare
' il testo L a sinistra C centrato R a destra - fill indica se lo sfondo della cella deve essere trasparente
' oppure no 0 è trasparente, 1 disegnato - link url restituito da add link
pdf.SetFont "Arial","",9
pdf.write 5,"Elenco ingredienti:" ' il primo numero è l'altezza della linea
pdf.SetFont "Arial","",12
pdf.write 20,nome_ingrediente
pdf.Close()
pdf.Output()
Set pdf = nothing
rs_formule.Close()
Set rs_formule = Nothing
rs_ingredienti.Close()
Set rs_ingredienti = Nothing
%>

Rispondi quotando