Code Example for InsertPages

[johnwalsh]

Do you have a VB6 code example for the InsertPages method of the ActiveX object?

[Corwin - Tracker Sup]

Hi,

To insert empty pages you may use following code:

Code: Select all

Call CoPDFXCview1.SetProperty("Operations.InsertEmptyPages.Count", 1, 0)
Call CoPDFXCview1.SetProperty("Operations.InsertEmptyPages.InsertBefore", 0, 0)
Call CoPDFXCview1.SetProperty("Operations.InsertEmptyPages.PaperMode", "Standard", 0)

Call CoPDFXCview1.SetProperty("Operations.InsertEmptyPages.PaperName", "A4", 0)

Dim vDataOut As Variant
Call CoPDFXCview1.DoVerb("Documents[0]", "InsertEmptyPages", Nothing, vDataOut, PXCVA_NoUI)

Next code is for inserting pages from another PDF document:

Code: Select all

Call CoPDFXCview1.SetProperty("Operations.InsertPages.RangeType", "Exact", 0)
Call CoPDFXCview1.SetProperty("Operations.InsertPages.RangeText", "1,2,3", 0)
Call CoPDFXCview1.SetProperty("Operations.InsertPages.FromExternal", 1, 0)
Call CoPDFXCview1.SetProperty("Operations.InsertPages.File", "e:\PDFs\PDFOverlay5.pdf", 0)
Call CoPDFXCview1.SetProperty("Operations.InsertPages.InsertBefore", 0, 0)
Dim vDataOut As Variant
Call CoPDFXCview1.DoVerb("Documents[0]", "InsertPages", Nothing, vDataOut, PXCVA_NoUI)

HTH.