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 = "07EFCDAB010001004282943F2AF19A88F332D9E781E40460727DF8A42847A1BDE06DB61C71E94E2D90424BF8762385335F9D6884E9FC"


 


    ' 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)


 


    oText = Nothing


    oText2 = Nothing


End Sub


static void Sample()


{


    // Constants for Activation codes


    const string strLicenseTo = "Amyuni PDF Creator Evaluation";


    const string strActivationCode = "07EFCDAB010001004282943F2AF19A88F332D9E781E40460727DF8A42847A1BDE06DB61C71E94E2D90424BF8762385335F9D6884E9FC";


 


    // 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);


 


 


    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 = "07EFCDAB010001004282943F2AF19A88F332D9E781E40460727DF8A42847A1BDE06DB61C71E94E2D90424BF8762385335F9D6884E9FC";


 


    // 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 = "07EFCDAB010001004282943F2AF19A88F332D9E781E40460727DF8A42847A1BDE06DB61C71E94E2D90424BF8762385335F9D6884E9FC"


 


' Initializing PDFCreativeX Object


Dim pdf


Set pdf = CreateObject("PDFCreactiveX.PDFCreactiveX.6.5")


 


' 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