1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
   | Dim open As FileStream
            Dim create As FileStream
            Dim reader As PdfReader
            Dim stamper As PdfStamper
            Dim canvas As PdfContentByte
 
            Try
                open = New FileStream("D:FormA.pdf", FileMode.Open)
                create = New FileStream("D:FormB.pdf", FileMode.Create)
                reader = New PdfReader(open)
                stamper = New PdfStamper(reader, create)
                canvas = stamper.GetOverContent(1)
 
 
            Catch ex As IOException
                MsgBox(ex.Message.ToString)
 
           Finaly
 
               stamper.Close()
                reader.Close()
                create.Close()
                open.Close()
            End Try | 
Partager