Dim chunkNwLn As Chunk = Chunk.NEWLINE
                Dim FOputstr As New FileOutputStream("Chap0804.rtf")
                RTFWriter.getInstance(Doc, FOputstr)
                Doc.open()

                '' --- HEADER 
                Dim tblHeader As New Table(3)
                tblHeader.setBorder(Table.NO_BORDER)
                Dim cellLog As New Cell
                Dim cellTxt1, celltxt2 As New Cell
                cellLog.setBorder(Cell.NO_BORDER)
                cellLog.setColspan(2)
                Dim Log As Image = Image.getInstance(RImg & Trim(dtstPDF.Tables("Intrv").Rows(0).Item("part_iva_partn")) & ".jpg")
                Log.setAlignment(Image.LEFT)
                Dim ChunkLog As New Chunk(Log, 0, 0)
                cellLog.add(ChunkLog)
                cellLog.setHorizontalAlignment(Element.ALIGN_LEFT)
                tblHeader.addCell(cellLog)
                cellTxt1.add(New Phrase("Data:____/____/_____", New Font(Font.HELVETICA, 12)))
                cellTxt1.add(chunkNwLn)
                cellTxt1.add(chunkNwLn)
                cellTxt1.add(New Phrase("Rapp. n°:__________/A", New Font(Font.HELVETICA, 12)))
                cellTxt1.setHorizontalAlignment(Element.ALIGN_RIGHT)
                cellTxt1.setBorder(Cell.NO_BORDER)
                tblHeader.addCell(cellTxt1)
                Doc.add(New Phrase(chunkNwLn))
                Doc.add(New Phrase(chunkNwLn))
                Doc.add(tblHeader)