Visualizzazione dei risultati da 1 a 3 su 3
  1. #1
    Utente di HTML.it L'avatar di TigerWB
    Registrato dal
    Apr 2002
    Messaggi
    286

    problemi con il sharpPDF

    a tutti

    ho intenzione di creare un pdf con dati che mi estrapolo da un data base per mezzo di una page aspx, ho scaricato la libreria sharpPDF l'ho imiportato nel mio progetto in asp.net, il file pdf lo crea ma vuoto,
    sono riuscito solo a disegnare una sfera.
    con gli script che ho trovato sul sito di sharpPDF non riesco a creare nessuna tabella e a importarmi nessun record
    qualcuno ha mai utilizzato questa libreria sharpPDF?

    grazie

  2. #2
    ciao, io l'ho usata diverso tempo fa.
    Ti incollo il codice che ho usato. Lo script è piuttosto vecchio, usa il framework 1.1 e non è proprio pulito (uso ancora adodb), ma erano i primi tempi che sviluppavo in .net. Comunque è uno script funzionante, e ci trovi sia il modo di creare tabelle, sia quello di scrivere testo dove vuoi nella pagina. Spero ti sia utile.

    codice:
        Private Function BuildPDF(ByVal ID_Rapporto As Integer) As String
            Dim mydoc As sharpPDF.pdfDocument
            Dim mypage As sharpPDF.pdfPage
            Dim mytable As sharpPDF.Tables.pdfTable
            Dim myrow As sharpPDF.Tables.pdfTableRow
            Dim myString As String
            Dim mySQL As String
            Dim i As Integer
            Dim dbRs As ADODB.Recordset
            Dim dbRsx As ADODB.Recordset
            dbRs = New ADODB.Recordset
            dbRsx = New ADODB.Recordset
            mySQL = "SELECT * FROM rapporti WHERE Id_Rapporto = " & ID_Rapporto
    
            dbRs.Open(mySQL, dbConn)
    
            mySQL = "SELECT * FROM rapportiarticoli WHERE Id_Rapporto = " & ID_Rapporto
    
            dbRsx.Open(mySQL, dbConn)
    
            mydoc = New sharpPDF.pdfDocument("- Rapporto di non conformita'", "AAA")
    
            mypage = mydoc.addPage(predefinedPageSize.csA4Page)
            mydoc.addImageReference("c:\inetpub\wwwroot\Styles\Default\images\logo.gif", "logo")
            mypage.addImage(mydoc.getImageReference("logo"), 46, 775)
    
            mypage.addText("Rapporto di non conformita'", 398, 796, mydoc.getFontReference(predefinedFont.csHelveticaBold), 10)
            mypage.addText("Numero:", 460, 782, mydoc.getFontReference(predefinedFont.csHelveticaBold), 10)
            mypage.addText(dbRs.Fields("Numero").Value, 505, 782, mydoc.getFontReference(predefinedFont.csHelvetica), 10)
            mypage.addText("Fornitore:", 46, 740, mydoc.getFontReference(predefinedFont.csHelveticaBold), 10)
            mypage.addText(dbRs.Fields("RagioneSociale").Value, 110, 740, mydoc.getFontReference(predefinedFont.csHelvetica), 10)
            mypage.addText("DDT Nr:", 46, 720, mydoc.getFontReference(predefinedFont.csHelveticaBold), 10)
            mypage.addText(dbRs.Fields("DDT").Value, 110, 720, mydoc.getFontReference(predefinedFont.csHelvetica), 10)
            mypage.addText("Azione Intrapresa / Stato CQ:", 257, 720, mydoc.getFontReference(predefinedFont.csHelveticaBold), 10)
            mypage.addText(dbRs.Fields("AzioneIntrapresa").Value, 400, 720, mydoc.getFontReference(predefinedFont.csHelvetica), 10)
    
            mytable = New sharpPDF.Tables.pdfTable(mydoc, 0, sharpPDF.pdfColor.White, 2)
            mytable.tableHeader.addColumn(60, predefinedAlignment.csLeft)
            mytable.tableHeader.addColumn(370, predefinedAlignment.csLeft)
            mytable.tableHeader.addColumn(40, predefinedAlignment.csRight)
            mytable.tableHeader.addColumn(40, predefinedAlignment.csRight)
    
            mytable.tableHeader(0).addText("Articolo", mydoc.getFontReference(predefinedFont.csHelveticaBold), 10)
            mytable.tableHeader(1).addText("Descrizione", mydoc.getFontReference(predefinedFont.csHelveticaBold), 10)
            mytable.tableHeader(2).addText("Qtà", mydoc.getFontReference(predefinedFont.csHelveticaBold), 10)
            mytable.tableHeader(3).addText("Lotto", mydoc.getFontReference(predefinedFont.csHelveticaBold), 10)
    
            Do While Not dbRsx.EOF
                myrow = mytable.createRow()
                myrow(0).addText(dbRsx.Fields("Articolo").Value, mydoc.getFontReference(predefinedFont.csHelvetica), 10)
                myrow(1).addText(dbRsx.Fields("Descrizione").Value, mydoc.getFontReference(predefinedFont.csHelvetica), 10)
                myrow(2).columnAlign = predefinedAlignment.csRight
                myrow(2).addText(dbRsx.Fields("Qta").Value, mydoc.getFontReference(predefinedFont.csHelvetica), 10)
                myrow(3).columnAlign = predefinedAlignment.csRight
                myrow(3).addText(dbRsx.Fields("TotaleLotto").Value, mydoc.getFontReference(predefinedFont.csHelvetica), 10)
                mytable.addRow(myrow)
    
                dbRsx.MoveNext()
            Loop
    
            dbRsx.Close()
            dbRsx = Nothing
    
            myrow = mytable.createRow()
            myrow(0).addText("")
            mytable.addRow(myrow)
    
            myrow = mytable.createRow()
            myrow(0).addText("")
            mytable.addRow(myrow)
    
            myrow = mytable.createRow()
            myrow(1).columnAlign = predefinedAlignment.csCenter
            myrow(1).addText("Descrizione della non conformita'", mydoc.getFontReference(predefinedFont.csHelveticaBold), 10)
            mytable.addRow(myrow)
    
            myString = dbRs.Fields("Descrizione").Value
    
            myrow = mytable.createRow()
            myrow(1).addParagraph(myString, mydoc.getFontReference(predefinedFont.csHelvetica), 10, 10, 370, predefinedAlignment.csLeft)
            mytable.addRow(myrow)
    
            myrow = mytable.createRow()
            myrow(0).addText("")
            mytable.addRow(myrow)
    
            myrow = mytable.createRow()
            myrow(1).columnAlign = predefinedAlignment.csCenter
            myrow(1).addText("Proposta di azioni successive", mydoc.getFontReference(predefinedFont.csHelveticaBold), 10)
            mytable.addRow(myrow)
    
            myString = dbRs.Fields("Proposta").Value
    
            myrow = mytable.createRow()
            myrow(1).addParagraph(myString, mydoc.getFontReference(predefinedFont.csHelvetica), 10, 10, 370, predefinedAlignment.csLeft)
            mytable.addRow(myrow)
    
            myrow = mytable.createRow()
            myrow(0).addText("")
            mytable.addRow(myrow)
    
            myrow = mytable.createRow()
            myrow(0).addText("")
            mytable.addRow(myrow)
    
            Dim nuovaData As String
            nuovaData = Day(dbRs.Fields("Data").Value) & "/" & Month(dbRs.Fields("Data").Value) & "/" & Year(dbRs.Fields("Data").Value)
    
            myrow = mytable.createRow
            myrow(0).columnAlign = predefinedAlignment.csRight
            myrow(0).addText("Data:", mydoc.getFontReference(predefinedFont.csHelveticaBold), 10)
            'myrow(1).addText(FormatDateTime(dbRs.Fields("Data").Value, DateFormat.ShortDate), mydoc.getFontReference(predefinedFont.csHelvetica), 10)
            myrow(1).addText(nuovaData, mydoc.getFontReference(predefinedFont.csHelvetica), 10)
            mytable.addRow(myrow)
    
            myrow = mytable.createRow
            myrow(0).columnAlign = predefinedAlignment.csRight
            myrow(0).addText("Resp:", mydoc.getFontReference(predefinedFont.csHelveticaBold), 10)
            myrow(1).addText(dbRs.Fields("Responsabile").Value, mydoc.getFontReference(predefinedFont.csHelvetica), 10)
            mytable.addRow(myrow)
    
            mytable.coordX = 46
            mytable.coordY = 700
    
            mypage.addTable(mytable)
    
            myString = dbRs.Fields("Fornitore").Value & "-" & dbRs.Fields("Numero").Value
            myString = Replace(myString, "/", "")
            myString = myString & ".pdf"
    
            mydoc.createPDF("c:\inetpub\wwwroot\Village\BackOffice\Rapporti\Files\PDF\" & myString)
            mydoc.createPDF("c:\Village\Allegato\" & myString)
    
            dbRs.Close()
            myrow = Nothing
            mytable = Nothing
            mypage = Nothing
            mydoc = Nothing
            dbRs = Nothing
    
            BuildPDF = myString
        End Function
    Visual Basic e Dintorni
    Blog sullo sviluppo Web in generale

  3. #3
    Utente di HTML.it L'avatar di Miko_d
    Registrato dal
    May 2005
    Messaggi
    61
    Anche io stò avendo qualche problema con sharpPdf, in pratica creo una datagrid e poi la
    salvo in un file pdf, il problema e che nella datagrid quando il testo è troppo lungo per
    essere contenuto in una cella, va a capo automaticamente, invece nella table pdf questo
    non avviene e mi tronca il testo aggiungendo dei puntini.
    Qualcuno ha un'idea su come risolvere il problema?

    Saluti.

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.