generer des pdf

Version imprimable

02/02/2011, 17h50
alex61

generer des pdf

bonsoir

dans le cadre de mon projet je doit générer des PDF

mais les source ce font rare ...

la seul solution que j'ai trouver est qu'il faudrait créer un fichier word qui sera ensuite transformer en pdf grâce a une dll de pdf creatore

si quelqu'un a une autre solution je suis tout ouï

cordialement
02/02/2011, 17h57
Jean-Michel Ormes

Bonjour,

Peut-être que itextsharp répondra à ta problématique.

c'est vrai que les exemples sont pas nombreux !

La seul solution simple que j'ai trouvé c'est de faire un état avec les état microsoft (tu peux surement le faire aussi avec cristal report) et de l'exporter en pdf en silencieux.

Voici un exemple tiré d'un dev (il faut faire le tri) mais il y a déjà pas mal d'info pour t'en sortir.

Si tu trouves de la doc ou d'autre exemple, je suis preneur.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
 
    Public Sub Export_PDF(ByVal nomEtat As String, ByVal Factures As List(Of cls_Facture), ByVal Out As TypeRender, Optional ByVal DateDebut As String = "", Optional ByVal DateFin As String = "", Optional ByVal GénérerPDF_EnLocal As Boolean = True)
 
        If DateDebut = "" Then DateDebut = Now.ToShortDateString
 
        Dim Form As New System.Windows.Forms.Form
        Form.ClientSize = New System.Drawing.Size(1112, 510)
        Form.Name = "PrintGridView"
        Form.Text = "Compte rendu de l'intégration"
        Form.WindowState = FormWindowState.Maximized
 
        If Factures.Count > 0 Then
            Dim viewer As New Microsoft.Reporting.WinForms.ReportViewer
            viewer.Dock = System.Windows.Forms.DockStyle.Fill
            viewer.Location = New System.Drawing.Point(0, 0)
            viewer.Name = "chpviewer"
 
            viewer.LocalReport.ReportPath = My.Application.Info.DirectoryPath & "\" & nomEtat
            viewer.LocalReport.DataSources.Add(New Microsoft.Reporting.WinForms.ReportDataSource("cls_Facture", Factures))
 
            Dim Param As New List(Of Microsoft.Reporting.WinForms.ReportParameter)
            Param.Add(New Microsoft.Reporting.WinForms.ReportParameter("DateDebut", DateDebut))
            Param.Add(New Microsoft.Reporting.WinForms.ReportParameter("DateFin", DateFin))
 
            viewer.LocalReport.SetParameters(Param)
 
            Form.Controls.Add(viewer)
 
            'Affiche le contenu du rapport
            viewer.RefreshReport()
 
            If Out = TypeRender.Ecran Then
                Form.ShowDialog()
            End If
 
            If GénérerPDF_EnLocal Then
                Dim warnings As Microsoft.Reporting.WinForms.Warning() = Nothing
                Dim streamids As String() = Nothing
                Dim mimeType As String = Nothing
                Dim encoding As String = Nothing
                Dim extension As String = Nothing
                Dim bytes As Byte()
 
                bytes = viewer.LocalReport.Render("PDF", Nothing, mimeType, encoding, extension, streamids, warnings)
 
                Dim fs As New IO.FileStream(_FullNameCompteRenduPDF, IO.FileMode.Create)
                fs.Write(bytes, 0, bytes.Length)
                fs.Close()
                fs.Dispose()
 
                bytes = Nothing
            End If
 
            Form.Dispose()
        End If
    End Sub

03/02/2011, 11h53
alex61

itextsharp pourrait repondre a mes besoin

mais ca m'étonnerai qu'il soit utilisable en vb.net

peu etre que si en faite j'ai importer la dll dans mon projet :P

avec un peu de chance ... ca va marcher

fausse joie ca marche pas .... :aie:
03/02/2011, 12h16
ricil78

Comment ça peut marcher en C# et pas en vb.net ??

je me trompe ou une référence .net est une référence .net qu'importe la langage ?

non c'est moi qui me suis tromper en faite il fallait ajouter les référence dans visual studio

je suis en train de travailler le code

quelqu'un sait comment insérer une image ou encore mieux une image en filigrane

parce que j'arrive a insérer du texte et des tableau , mais pas d'image ...

pour ceux que ca intéresse voila mon code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
'creation d'un document pdf
        Dim nouveauDocument = New Document()
        Dim laFS As New FileStream("fichier.pdf", FileMode.Create)
        PdfWriter.GetInstance(nouveauDocument, laFS)
        nouveauDocument.Open()
 
        'insertion texte 
        nouveauDocument.Add(New Phrase("hello world"))
 
        'création d'un tableau
        Dim tableau As New PdfPTable(3)
        Dim cellule As New PdfPCell(New Paragraph("lalala"))
        cellule.Colspan = 3
        tableau.AddCell(cellule)
        tableau.AddCell(1.1)
        tableau.AddCell(1.2)
        tableau.AddCell(1.3)
        tableau.AddCell(cellule)
        tableau.AddCell(2.1)
        tableau.AddCell(2.2)
        tableau.AddCell(2.3)
        nouveauDocument.Add(tableau)
 
 
        'fermerture du document 
        nouveauDocument.close()
        laFS.Close()

c'est bon j'ai trouver

voila un bout de code qui place dans un pdf une image en filigrane , un tableau et du texte

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 'creation d'un document pdf
        Dim nouveauDocument = New Document()
        Dim laFS As New FileStream("fichier.pdf", FileMode.Create)
        PdfWriter.GetInstance(nouveauDocument, laFS)
        nouveauDocument.Open()
 
        'insertion texte 
        nouveauDocument.Add(New Paragraph("hello world"))
        nouveauDocument.Add(New Paragraph("lala"))
 
        ' Dim image1 As Image = Image.GetInstance(Application.StartupPath & "\fm.jpg")
        'Dim image1 As Image = Image.GetInstance(Application.StartupPath & "\fm.jpg")
        'image1.SetDpi(80, 60)
        ' nouveauDocument.Add(image1)
 
        Dim filigrane As iTextSharp.text.Image = iTextSharp.text.Image.GetInstance(Application.StartupPath & "\fm.jpg")
        filigrane.SetAbsolutePosition(20, 300)
        nouveauDocument.Add(filigrane)
 
 
        'création d'un tableau
        Dim tableau As New PdfPTable(3)
        Dim cellule As New PdfPCell(New Paragraph("lalala"))
        cellule.Colspan = 3
        tableau.AddCell(cellule)
        tableau.AddCell(1.1)
        tableau.AddCell(1.2)
        tableau.AddCell(1.3)
        tableau.AddCell(cellule)
        tableau.AddCell(2.1)
        tableau.AddCell(2.2)
        tableau.AddCell(2.3)
        nouveauDocument.Add(tableau)
 
 
        'fermerture du document 
        nouveauDocument.close()
        laFS.Close()

merci a Jean-Michel Ormes de m'avoir mis sur cette voie

cordialement

03/02/2011, 15h04
ricil78

et merci à toi de partager ton code, ça va bien me servir aussi ! :ccool:
24/02/2011, 17h29
narama87

bonjour :)
merci alex61 d'avoir partagé ton code :ccool:
24/02/2011, 19h56
nanar21

Merci x 2

Merci, à Jean-Michel Ormes et à Alex61