Visualizzazione dei risultati da 1 a 2 su 2
  1. #1
    Utente di HTML.it L'avatar di Lino80
    Registrato dal
    Oct 2005
    Messaggi
    1,560

    domandina semplicissima su fpdf

    grazie a voi e in particolar modo a mosquito70 sono riuscito a creare il pdf:

    http://www.sitowebflash.com/public/fpdf/miofile.pdf

    come vedete le foto sono incolonnate da sinistra verso destra sull'asse delle X, come fare per incolonnarle sull'asse delle Y?

    codice:
    <%
    dim rs, sql
    cont_vero = "true"
    
    id=Request.QueryString("id")
    Set rs = Server.CreateObject("ADODB.Recordset")
    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
    '-------------------------------
    Function RemoveTagHTML(sTexto)
    
    sTextoSemTag = sTexto
    
    Set ExpRegular = New RegExp 
    
    ExpRegular.IgnoreCase = True
    ExpRegular.Global = True
    ExpRegular.Pattern = "<[^>]*>"
    sTextoSemTag = ExpRegular.Replace(sTextoSemTag, "")
    
    Set ExpRegular = Nothing
    
    RemoveTagHTML = sTextoSemTag
    End Function
    
    Set pdf=CreateJsObject("FPDF")
    pdf.CreatePDF()
    pdf.SetPath("public/fpdf/")
    pdf.Open()
    pdf.LoadModels("NumeroPagina")
    pdf.AddPage()
    Do While NOT RS.EOF
    pdf.SetFont "Arial","B",11
    pdf.Ln(8)
    pdf.Cell 10,10, RS("id")
    pdf.Ln(12)
    pdf.Image "/"&RS("gfoto"),pdf.GetY(),partenzaverticale,grandezzafoto
    pdf.SetFont "Arial","I",9
    pdf.MultiCell 0,5,RS("data"), 0, "", 0
    pdf.Cell 60,10,"____________"
    pdf.Ln(6)
    pdf.SetFont "arial","",10
    
    pdf.Close()
         
    	'PDF.Output
    	PDF.Output Server.MapPath("/public/fpdf/miofile.pdf"), true
    %>

  2. #2
    Utente di HTML.it L'avatar di Lino80
    Registrato dal
    Oct 2005
    Messaggi
    1,560
    baollllllllllllllllllll genteeeeeeeeeeeee dove siete??????????????

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.