WaterMark not added to file.
Posted: Sat Aug 12, 2017 11:45 am
Hello,
I'm using pdfcontrol to do watermark document without open document in control.
Here is my code:
Public rc As PDFXEdit.PXC_Rect
Public m_Inst As PDFXEdit.PXV_Inst = Nothing
Public m_pxcInst As PDFXEdit.IPXC_Inst = Nothing
Public ixcInst As PDFXEdit.IIXC_Inst = Nothing
Public IAUX_Inst As PDFXEdit.IAUX_Inst = Nothing
Public Sub InitPDFControl()
Try
Dim licKey As String = "xyz"
m_Inst = New PDFXEdit.PXV_Inst()
m_Inst.Init(Nothing, licKey, Nothing, Nothing, Nothing, 0, Nothing)
m_pxcInst = CType(m_Inst.GetExtension("PXC"), PDFXEdit.IPXC_Inst)
IAUX_Inst = m_Inst.GetExtension("AUX")
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
Private Sub Btnwtrmrk_Click(sender As Object, e As EventArgs) Handles Btnwtrmrk.Click
Try
Dim doc As PDFXEdit.IPXC_Document
InitPDFControl()
doc = m_pxcInst.OpenDocumentFromFile("C:\Users\Vivek\Desktop\Pages from Untitled.pdf", Nothing) 'open doc
'PlaceWatermark(doc, m_pxcInst)
Dim bs As PDFXEdit.IBitSet = IAUX_Inst.CreateBitSet(doc.Pages.Count)
Dim wp As PDFXEdit.IPXC_WatermarkParams = m_pxcInst.CreateWatermarkParams()
bs.Set(0, doc.Pages.Count)
wp.Text = "dddddddddddddfffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff"
wp.Scale = 200
wp.FontSize = Convert.ToSingle(50)
wp.FontName = "Book Antiqua"
wp.WatermarkType = PDFXEdit.PXC_WatermarkType.Watermark_Text
doc.PlaceWatermark(bs, wp)
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
Code works fine, but document not watermarked.
so what to do?
I'm using pdfcontrol to do watermark document without open document in control.
Here is my code:
Public rc As PDFXEdit.PXC_Rect
Public m_Inst As PDFXEdit.PXV_Inst = Nothing
Public m_pxcInst As PDFXEdit.IPXC_Inst = Nothing
Public ixcInst As PDFXEdit.IIXC_Inst = Nothing
Public IAUX_Inst As PDFXEdit.IAUX_Inst = Nothing
Public Sub InitPDFControl()
Try
Dim licKey As String = "xyz"
m_Inst = New PDFXEdit.PXV_Inst()
m_Inst.Init(Nothing, licKey, Nothing, Nothing, Nothing, 0, Nothing)
m_pxcInst = CType(m_Inst.GetExtension("PXC"), PDFXEdit.IPXC_Inst)
IAUX_Inst = m_Inst.GetExtension("AUX")
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
Private Sub Btnwtrmrk_Click(sender As Object, e As EventArgs) Handles Btnwtrmrk.Click
Try
Dim doc As PDFXEdit.IPXC_Document
InitPDFControl()
doc = m_pxcInst.OpenDocumentFromFile("C:\Users\Vivek\Desktop\Pages from Untitled.pdf", Nothing) 'open doc
'PlaceWatermark(doc, m_pxcInst)
Dim bs As PDFXEdit.IBitSet = IAUX_Inst.CreateBitSet(doc.Pages.Count)
Dim wp As PDFXEdit.IPXC_WatermarkParams = m_pxcInst.CreateWatermarkParams()
bs.Set(0, doc.Pages.Count)
wp.Text = "dddddddddddddfffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff"
wp.Scale = 200
wp.FontSize = Convert.ToSingle(50)
wp.FontName = "Book Antiqua"
wp.WatermarkType = PDFXEdit.PXC_WatermarkType.Watermark_Text
doc.PlaceWatermark(bs, wp)
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
Code works fine, but document not watermarked.
so what to do?