AddPage Method

The AddPage method can be used to add a blank page to the document at specified page index. The inserted page becomes the currently active page and all operations such as inserting objects are applied to the new page.

 

Syntax

VB:

Sub AddPage(PageIndex As Long)

C#:

void AddPage(int PageIndex)

C++:

HRESULT AddPage(long PageIndex)

 

Parameters

PageIndex

If greater than the number of pages in the document, a new page is appended at the end of the document.

 

Example

Sub Sample()
    ' Constants for Activation codes
    Const strLicenseTo As String = "Amyuni PDF Creator Evaluation"
    Const strActivationCode As String = "07EFCDAB010001004282943FAAF19A88F332D9E781E40460727D78A42847A1BDE06DB61C71E94E2D90424BF8762385335F9D6884E9FC"
 
    ' Initializing PDFCreativeX Object
    Dim pdf As ACPDFCREACTIVEX.PDFCreactiveX = New ACPDFCREACTIVEX.PDFCreactiveX()
 
    ' Set license key
    pdf.SetLicenseKey(strLicenseTo, strActivationCode)
 
    ' Create a Text in the current Page
    pdf.CreateObject(ACPDFCREACTIVEX.ObjectTypeConstants.acObjectTypeText, "Text1")
    Dim oText As ACPDFCREACTIVEX.IacObject = pdf.GetObjectByName("Text1")
    oText("Left") = 1000
    oText("Right") = 5000
    oText("Top") = 0
    oText("Bottom") = 4000
    oText("BorderColor") = &HFF00FF
    oText("BorderWidth") = ACPDFCREACTIVEX.acBorderWidth.acBorderWidthDouble
    oText("Text") = "Hello World!"
 
    ' Add page in the first page
    pdf.AddPage(0)
 
    ' Create a Text in the current Page
    pdf.CreateObject(ACPDFCREACTIVEX.ObjectTypeConstants.acObjectTypeText, "Text2")
    Dim oText2 As ACPDFCREACTIVEX.IacObject = pdf.GetObjectByName("Text2")
    oText2("Left") = 1000
    oText2("Right") = 5000
    oText2("Top") = 4000
    oText2("Bottom") = 6000
    oText2("BorderColor") = &HFF0000
    oText2("BorderWidth") = ACPDFCREACTIVEX.acBorderWidth.acBorderWidthDouble
    oText2("Text") = "Amyuni Technologies"
 
    ' Save PDF
    pdf.Save("c:\temp\CreatePDFDocument_resulting.pdf", ACPDFCREACTIVEX.FileSaveOptionConstants.acFileSaveView)
 
    ' destroy objects
    pdf = Nothing
    oText = Nothing
    oText2 = Nothing
End Sub
static void Sample()
{
    // Constants for Activation codes
    const string strLicenseTo = "Amyuni PDF Creator Evaluation";
    const string strActivationCode = "07EFCDAB010001004282943FAAF19A88F332D9E781E40460727D78A42847A1BDE06DB61C71E94E2D90424BF8762385335F9D6884E9FC";
 
    // Initializing PDFCreativeX Object
    ACPDFCREACTIVEX.PDFCreactiveX pdf = new ACPDFCREACTIVEX.PDFCreactiveX();
 
    // Set license key
    pdf.SetLicenseKey(strLicenseTo, strActivationCode);
 
    // Create a Text in the current Page
    pdf.CreateObject(ACPDFCREACTIVEX.ObjectTypeConstants.acObjectTypeText, "Text1");
    ACPDFCREACTIVEX.IacObject oText = pdf.GetObjectByName("Text1");
    oText["Left"] = 1000;
    oText["Right"] = 5000;
    oText["Top"] = 0;
    oText["Bottom"] = 4000;
    oText["BorderColor"] = 0xFF00FF;
    oText["BorderWidth"] = ACPDFCREACTIVEX.acBorderWidth.acBorderWidthDouble;
    oText["Text"] = "Hello World!";
 
    // Add page in the first page
    pdf.AddPage(0);
 
    // Create a Text in the current Page
    pdf.CreateObject(ACPDFCREACTIVEX.ObjectTypeConstants.acObjectTypeText, "Text2");
    ACPDFCREACTIVEX.IacObject oText2 = pdf.GetObjectByName("Text2");
    oText2["Left"] = 1000;
    oText2["Right"] = 5000; 
    oText2["Top"] = 4000;
    oText2["Bottom"] = 6000;
    oText2["BorderColor"] = 0xFF0000;
    oText2["BorderWidth"] = ACPDFCREACTIVEX.acBorderWidth.acBorderWidthDouble; 
    oText2["Text"] = "Amyuni Technologies";            
 
    // Save PDF
    pdf.Save(@"c:\temp\CreatePDFDocument_resulting.pdf", ACPDFCREACTIVEX.FileSaveOptionConstants.acFileSaveView);
 
    // destroy objects
    pdf = null;
    oText = null;
    oText2 = null;
}
#import "c:\users\amyuni\pdfcreactivex.dll" no_namespace
 
using namespace std;
 
int main()
{
    // Constants for Activation codes
    bstr_t strLicenseTo = "Amyuni PDF Creator Evaluation";
    bstr_t strActivationCode = "07EFCDAB010001004282943FAAF19A88F332D9E781E40460727D78A42847A1BDE06DB61C71E94E2D90424BF8762385335F9D6884E9FC";
 
    // Initialize the COM subsystem
    CoInitialize(0);
 
    // IPDFCreactiveXPtr is a smart pointer type defined in pdfcreactivex.tlh,
    // the type library header file generated by the #import instruction above
    IPDFCreactiveXPtr pdf;
 
    // Create the PDFCreactiveX instance
    pdf.CreateInstance(__uuidof(PDFCreactiveX));
 
    // set license key
    pdf->SetLicenseKey(_bstr_t(strLicenseTo), _bstr_t(strActivationCode));
 
    // Set-up variables for attributes
    _variant_t varAttribute;
    varAttribute.vt = VT_I4;  // integers
 
    // Create a text in the current Page
    pdf->CreateObject(acObjectTypeText, "Text1");
    IacObjectPtr oText = pdf->GetObjectByName("Text1");
    oText->Attribute["Left"] = 1000;
    oText->Attribute["Right"] = 5000;
    oText->Attribute["Top"] = 0;
    oText->Attribute["Bottom"] = 4000;
    varAttribute.lVal = 0xFF00FF;
    oText->Attribute["BorderColor"] = varAttribute;
    varAttribute.lVal = acBorderWidthDouble;
    oText->Attribute["BorderWidth"] = varAttribute;
    oText->Attribute["Text"] = "Hello World!";
 
    // Add page in the first page
    pdf->AddPage(0);
 
    // Create a text in the current Page
    pdf->CreateObject(acObjectTypeText, "Text2");
    IacObjectPtr oText2 = pdf->GetObjectByName("Text2");
    oText2->Attribute["Left"] = 1000;
    oText2->Attribute["Right"] = 5000;
    oText2->Attribute["Top"] = 4000;
    oText2->Attribute["Bottom"] = 6000;
    varAttribute.lVal = 0xFF00FF;
    oText2->Attribute["BorderColor"] = varAttribute;
    varAttribute.lVal = acBorderWidthDouble;
    oText2->Attribute["BorderWidth"] = varAttribute;
    oText2->Attribute["Text"] = "Amyuni Technologies";
 
    // Save PDF
    pdf->Save("c:\\temp\\CreatePDFDocument_resulting.pdf", acFileSaveView);
 
    // destroy objects
    pdf = NULL;
    oText = NULL;
    oText2 = NULL;
 
    // destroy objects
    pdf = NULL;
 
    Return 0;
}
' ObjectTypeConstants
Const acObjectTypeArrow = 36
Const acObjectTypeBarcode = 45
Const acObjectTypeCell = 33
Const acObjectTypeCheckBox = 21
Const acObjectTypeEllipse = 4
Const acObjectTypeExcel = 17
Const acObjectTypeField = 6
Const acObjectTypeGraph = 19
Const acObjectTypeHighlight = 23
Const acObjectTypeLine = 1
Const acObjectTypePicture = 7
Const acObjectTypePolygon = 8
Const acObjectTypeRoundFrame = 3
Const acObjectTypeRow = 32
Const acObjectTypeSelection = 24
Const acObjectTypeSignature = 39
Const acObjectTypeStickyNote = 22
Const acObjectTypeTable = 16
Const acObjectTypeText = 5
 
' acBorderWidth
Const acBorderWidthNone = 0
Const acBorderWidthSimple = 1
Const acBorderWidthDouble = 2
Const acBorderWidthTriple = 3
Const acBorderWidthQuadruple = 4
 
' FileSaveOptionConstants
Const acFileSaveAll = 0
Const acFileSaveDefault = -1
Const acFileSaveView = 1
Const acFileSaveDesign = 2
Const acFileSavePDFA_7 = 3
Const acFileSavePDFA = 4
Const acFileSavePDF14 = 5
 
' Constants for Activation codes
Const strLicenseTo = "Amyuni PDF Creator Evaluation"
Const strActivationCode = "07EFCDAB010001004282943FAAF19A88F332D9E781E40460727D78A42847A1BDE06DB61C71E94E2D90424BF8762385335F9D6884E9FC"
 
' Initializing PDFCreativeX Object
Dim pdf
Set pdf = CreateObject("PDFCreactiveX.PDFCreactiveX.6.0")
 
' Set license key
pdf.SetLicenseKey strLicenseTo, strActivationCode
 
' Create a Text in the current Page
pdf.CreateObject acObjectTypeText, "Text1"
Dim oText 
Set oText = pdf.GetObjectByName("Text1")
oText("Left") = 1000
oText("Right") = 5000
oText("Top") = 0
oText("Bottom") = 4000
oText("BorderColor") = &HFF00FF
oText("BorderWidth") = acBorderWidthDouble
oText("Text") = "Hello World!"
 
' Add page in the first page
pdf.AddPage 0
 
' Create a Text in the current Page
pdf.CreateObject acObjectTypeText, "Text2"
Dim oText2 
Set oText2 = pdf.GetObjectByName("Text2")
oText2("Left") = 1000
oText2("Right") = 5000
oText2("Top") = 0
oText2("Bottom") = 4000
oText2("BorderColor") = &HFF00FF
oText2("BorderWidth") = acBorderWidthDouble
oText2("Text") = "Amyuni Technologies"
 
' Save PDF
pdf.Save "c:\temp\CreatePDFDocument_resulting.pdf", acFileSaveView
 
' destroy Objects
Set pdf = Nothing
Set oText = Nothing
Set oText2 = Nothing