fpdf: più prodotti nella stessa pagina

[Lino80]

ciao, come faccio a creare il pdf con più prodotti nella stessa pagina? com è ora mi stampa un prodotto per pagina...

/************************************************** **************************
* *
* Software : FPDF for Asp *
* Version : 1.01 beta *
* Date : 2003/11/15 *
* Author : Lorenzo Abbati *
* License : Freeware *
* Site : http://www.aspxnet.it *
* *
************************************************** ***************************
* *
* Author (PHP Class) : Olivier Plathey *
* Site (PHP Class) : http://www.fpdf.org *
* *
************************************************** ***************************
* *
* You may use and modify this software as you wish. *
* *
************************************************** **************************/

questo è lo script..se serve tutto il codice lo posto..

grazie

[Lino80]

lo script è questo:

http://www10.asphost4free.com/aspasp/basics.txt

http://www10.asphost4free.com/aspasp/fpdf.txt

http://www10.asphost4free.com/aspasp/stampa_pdf.txt

[Lino80]

up

[Lino80]

questa è la funzione?? ma come si applica?

AliasNbPages
AliasNbPages([string alias])
Versione
1.4
Descrizione
Definisce un alias per il numero totale di pagine. Sarà sostituito alla chiusura del documento.
Parametri
alias

L'alias. Valore di default: {nb}.

Esempio
function Footer()

//Va a 1.5 cm dal fondo della pagina
this.SetY(-15);
//Seleziona Arial corsivo 8
this.SetFont('Arial','I',8);
//Stampa il numero di pagina corrente e totale
this.Cell(0,10,'Page 'pdf.PageNo().'/{nb}',0,0,'C');
end function


pdf=new PDF()
pdf.AliasNbPages()

[Lino80]

il codice della pagina elenco_cartaceo.asp è questo:

<%
	QSOrdinaPer = Request.QueryString("ordinaper")
	If QSOrdinaPer = "" then
		QSOrdinaPer = "ID"
	End If
	
	SQL = " SELECT * FROM Prodotti WHERE controllostampa = " & cont_vero & " " 
	Set RS = Conn.Execute(SQL)
	RS.PageSize = 5
	
	If Not RS.EOF Then RS.MoveFirst
	Do While Not RS.EoF
%>
              <tr> 
                <td valign="top"><%=RS("ID")%></td>
                <td valign="top"><%=RS("Codice")%></td>
                <td valign="top"><%=RS("Prodotto")%></td>
                <td valign="top">"><img src= " <%Response.Write percorsolungo & RS("PFoto")%>" width="<%=PFoto_Larghezza%>" " border="0" div align="center" >
				</td>
                <td valign="top"><%=RS("Produttore")%></td>
                <td valign="top"><div align="center"> 
                    <%If RS("controllostampa") Then Response.Write "Sì" Else Response.Write "No"%>
                  </div></td>
                <td valign="top"> &cont_elenco=false">Deseleziona </p> 
                  <p align="center"> </p></tr>
              <%
	RS.MoveNext
	Loop
%>

dove modificare per inserire più prodotti in una pagina pdf?

[Lino80]

ops scusate il codice è questo:

<%
	dim rs, sql
	cont_vero = "true"
	
	if stampagiacenza = true then
	
		if stampaimmagini = false then
			SQL = " SELECT * FROM Prodotti WHERE controllostampa = " & cont_vero & "  and Gfoto <> '""' order BY " & ordinedistampa
			Set RS = Conn.Execute(SQL)
		else 
			SQL = " SELECT * FROM Prodotti WHERE controllostampa = " & cont_vero & " order BY " & ordinedistampa
			Set RS = Conn.Execute(SQL)
		end if
	else
		if stampaimmagini = false then
			SQL = " SELECT * FROM Prodotti WHERE controllostampa = " & cont_vero & "  and Gfoto <> '""'and (giacenza >0 or giacenzainfinita = true) order BY " & ordinedistampa
			Set RS = Conn.Execute(SQL)
		else 
			SQL = " SELECT * FROM Prodotti WHERE controllostampa = " & cont_vero & " and (giacenza >0 or giacenzainfinita = true)order BY " & ordinedistampa
			Set RS = Conn.Execute(SQL)
	end if
	
	end if
	

	Set PDF = CreateJsObject("FPDF")
	pdf.CreatePDF()
	PDF.SetPath("public/fpdf/")
	pdf.SetFont "Arial","",16
	PDF.Open
	
	

	PDF.SetAuthor "Arredibombaci"
	PDF.SetCreator "ASP2PDF"
	PDF.SetKeywords ""
	PDF.SetSubject "Catalogo"
	PDF.SetTitle "Catalogo"



	Dim I, PartenzaY
	PartenzaY = 40
	
	
	Do While NOT RS.EOF
	
	PartenzaY = PartenzaY + 2
	
	PDF.AddPage
		if rs("gfoto")<>"" then
		pdf.sety 0
		pdf.Image "/"&RS("gfoto"),pdf.GetY(),partenzaverticale,grandezzafoto
		end if
	
	
	
	
	PDF.SetXY partenzaid, PartenzaY - 40
		PDF.SetFont "", "B", fontgrande
			PDF.MultiCell 0, 5, RS("id"), 0, 0 , "", 0
		PDF.SetFont "", ""
	PDF.SetXY partenzatesto, PartenzaY - 40
		PDF.SetFont "", "B", fontgrande	
			PDF.MultiCell 0, 5, RS("PDescrizione"), 0, 0 , "", 0
		PDF.SetFont "", ""
		
		
	PDF.SetXY partenzatesto, PartenzaY -30
		PDF.SetFont "", "B", fontmedio
			PDF.MultiCell 0, 5, RS("Prodotto"), 0, 0 , "", 0
		PDF.SetFont "", ""
		
	PDF.SetFont "", "", fontpiccolo
	
	
	PDF.SetXY partenzatesto, PartenzaY - 20
	PDF.SetFont "", "B", fontpiccolo
		PDF.MultiCell 0, 5, "Descrizione: ", 0, "", 0
	PDF.SetFont "", ""
	PDF.SetFont "", "", fontpiccolissimo
	PDF.SetXY partenzatesto, PartenzaY + 4
	if RS("GDescrizione") <> null then
		PDF.MultiCell 0, 8, RS("GDescrizione"), 0, "", 0
	PDF.SetFont "", ""	
	end if
	
	if stamparprezzo = true then
		PDF.SetXY partenzatesto + distanzacolonne, PartenzaY -10
		PDF.MultiCell 0, 5,"PCD: "& (RS("RPrezzo")), 0, "", 0
	end if
	PDF.SetXY partenzatesto, PartenzaY -10
		PDF.MultiCell 0, 5,"Prezzo: "& RS("CPrezzo") &" €", 0, "", 0
	PDF.SetXY partenzatesto + distanzacolonne, PartenzaY + 0
		PDF.MultiCell 0, 5,"ET: "& RS("PuntiSconto")&" ", 0, "", 0
	if stampanote = true then
	PDF.SetFont "", "", fontpiccolissimo
	PDF.SetFont "", ""
	end if 
	PDF.SetXY partenzatesto, PartenzaY + 8
		PDF.MultiCell 0, 5, "Giacenza: "& RS("giacenza"), 0, "", 0
	PDF.SetXY partenzatesto + distanzacolonne, PartenzaY + 10
		PDF.MultiCell 0, 5, "Data: "& strtodata(RS("data")), 0, "", 0

	
	
	
	
	
	
	RS.MoveNext
	Loop

     
	'PDF.Output
	PDF.Output Server.MapPath("/public/fpdf/miofile.pdf"), true
%>

qualcuno sa aiutarmi?