GÉNÉRATION D'UN PDF AVEC COUVERTURE ET IMAGE EN PIED DE PAGE AVEC ITEXTSHARP

Imports System.IO
Imports iTextSharp
Imports iTextSharp.text
Imports iTextSharp.text.pdf
Imports iTextSharp.text.xml

Module Module1




    


    Public Function ExportModifié(ByRef redaction As String) As Boolean

        Try
            Dim STRImagePied = Image.GetInstance(Application.StartupPath + "\Resources\Pied.jpg")
            Dim STRdirBureau = Environ("USERPROFILE") & "\Bureau\"
            Dim IntNumb, IntCount As Integer
            Dim ReaderCouverture As New PdfReader(Application.StartupPath + "\Resources\Couverture.pdf")
            Dim CouvertureSize As iTextSharp.text.Rectangle = ReaderCouverture.GetPageSize(1)
            Dim Temp As New Document(CouvertureSize, 36, 36, 36, 88) 'Document temporaire sans pied, le nombre de page n'étant pas connu, on insèrera le pied ultérieurement, en reservant 88 pixels, ce qui correspond à la hauteur de l'image pied
            Dim WriterTemp As PdfWriter = PdfWriter.GetInstance(Temp, File.Create(Application.StartupPath + "\Resources\Temp.pdf"))

            Temp.Open() 'On ouvre le document temporaire maintenant, pour affecter les valeurs à ContentByteTemp et ImportCouverture au moment de leur définition

            Dim ContentByteTemp As PdfContentByte = WriterTemp.DirectContent
            Dim ImportCouverture As PdfImportedPage = WriterTemp.GetImportedPage(ReaderCouverture, 1)
            Dim bfArial = BaseFont.CreateFont(Application.StartupPath + "\Resources\ARIAL.TTF", BaseFont.CP1252, BaseFont.NOT_EMBEDDED)
            Dim arial = New Font(bfArial, 12, FontStyle.Regular, Color.BLACK)
            Dim Paragraphe As Paragraph = New Paragraph

            Temp.NewPage()
            ContentByteTemp.AddTemplate(ImportCouverture, 1.0F, 0, 0, 1.0F, 0, 0)
            Temp.NewPage()
            Paragraphe.Add(New Chunk(redaction, New Font(arial)))
            Temp.Add(Paragraphe)

            Temp.Close()

            Dim ReaderTemp As New PdfReader(Application.StartupPath + "\Resources\Temp.pdf")
            Dim Final As New Document(CouvertureSize, 0, 0, 0, 0)
            Dim WriterFinal As PdfWriter = PdfWriter.GetInstance(Final, File.Create(STRdirBureau & "Final.pdf"))

            Final.Open() 'idem Temp.Open...

            Dim ContentByteFinal As PdfContentByte = WriterFinal.DirectContent
            Dim ImportTemp As PdfImportedPage

            'Création de la couverture dans le document final 
            Final.NewPage()
            IntCount = 1
            ImportTemp = WriterFinal.GetImportedPage(ReaderTemp, IntCount)
            ContentByteFinal.AddTemplate(ImportTemp, 1.0F, 0, 0, 1.0F, 0, 0)
            IntCount = IntCount + 1

            IntNumb = ReaderTemp.NumberOfPages
            'Création des pages suivantes, avec l'image en pied de page
            Do While IntCount <= IntNumb
                Final.NewPage()
                ImportTemp = WriterFinal.GetImportedPage(ReaderTemp, IntCount)
                ContentByteFinal.AddTemplate(ImportTemp, 1.0F, 0, 0, 1.0F, 0, 0)
                STRImagePied.SetAbsolutePosition(Final.PageSize.Width - 740, 0)
                Final.Add(STRImagePied)
                IntCount = IntCount + 1
            Loop

            Final.Close()
            File.Delete(Application.StartupPath + "\Resources\Temp.pdf")

        Catch
            ExportModifié = False

        End Try
        ExportModifié = True

    End Function


End Module