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