Discussion :

[alex61]

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

[Jean-Michel Ormes]

Bonjour,

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

[ricil78]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

avec un peu de chance ... ca va marcher

fausse joie ca marche pas ....

[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 ?

[alex61]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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()