DeletePage Method

The DeletePage method deletes the page at a specified location.

 

Syntax

VB:

Sub DeletePage(PageNumber As Integer, CanUndo As Integer)

C#:

void DeletePage(int PageNumber, int CanUndo)

C++:

HRESULT DeletePage(long PageNumber, long CanUndo)

 

Parameters

PageNumber

PageNumber starts at 1 for the first page.

CanUndo

This parameter specifies whether the operation can be undone using the Undo method. An operation that can be undone usually consumes memory and is slower to execute.

 

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)

 

    ' Add 10 pages

    For page = 1 To 10

        pdf.AddPage(page - 1)

 

        ' Create a text in the current Page

        pdf.CreateObject(ACPDFCREACTIVEX.ObjectTypeConstants.acObjectTypeText, "Text" + page.ToString)

        Dim oText As ACPDFCREACTIVEX.IacObject = pdf.GetObjectByName("Text" + page.ToString)

        oText("Left") = 1000

        oText("Right") = 5000

        oText("Top") = 0

        oText("Bottom") = 4000

        oText("BorderColor") = &HFF00FF

        oText("BorderWidth") = ACPDFCREACTIVEX.acBorderWidth.acBorderWidthDouble

        oText("Text") = "Amyuni Technologies, page=" + page.ToString

    Next

 

    ' Save PDF

    pdf.Save("c:\temp\CreatePDFDocument_resulting.pdf", ACPDFCREACTIVEX.FileSaveOptionConstants.acFileSaveView)

 

    ' DeletePages 5, 6,And 7.Note, the code deletes page

    ' number 5 three times. This Is because every time the

    ' pages above it are renumbered, so, effectively, we are

    ' deleting pages 5 through 7 of the original document.

    pdf.DeletePage(5, 0)

    pdf.DeletePage(5, 0)

    pdf.DeletePage(5, 0)

 

    ' Save PDF

    pdf.Save("c:\temp\CreatePDFDocument_resulting2.pdf", ACPDFCREACTIVEX.FileSaveOptionConstants.acFileSaveView)

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

 

    // Add 10 pages

    for (int page = 1; page < 11; page++)

    {

        pdf.AddPage(page - 1);

 

        // Create a text in the current Page

        pdf.CreateObject(ACPDFCREACTIVEX.ObjectTypeConstants.acObjectTypeText, "Text" + page.ToString());

        ACPDFCREACTIVEX.IacObject oText = pdf.GetObjectByName("Text" + page.ToString());

        oText["Left"] = 1000;

        oText["Right"] = 5000;

        oText["Top"] = 0;

        oText["Bottom"] = 4000;

        oText["BorderColor"] = 0xFF00FF;

        oText["BorderWidth"] = ACPDFCREACTIVEX.acBorderWidth.acBorderWidthDouble;

        oText["Text"] = "Amyuni Technologies, page=" + page.ToString();

    }

    // Save PDF

    pdf.Save(@"c:\temp\CreatePDFDocument_resulting.pdf", ACPDFCREACTIVEX.FileSaveOptionConstants.acFileSaveView);

 

    // DeletePages 5, 6,And 7.Note, the code deletes page

    // number 5 three times. This Is because every time the

    // pages above it are renumbered, so, effectively, we are

    // deleting pages 5 through 7 of the original document.

    pdf.DeletePage(5, 0);

    pdf.DeletePage(5, 0);

    pdf.DeletePage(5, 0);

 

    // Save PDF

    pdf.Save(@"c:\temp\CreatePDFDocument_resulting2.pdf", ACPDFCREACTIVEX.FileSaveOptionConstants.acFileSaveView);

 

 

}

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

 

    char numero = ' 1' ;

 

    // Add 10 pages

    for (int page = 1; page < 11; page++)

    {

        pdf->AddPage(page - 1);

 

        // Set-up variables for attributes

        _variant_t varAttribute;

        varAttribute.vt = VT_I4;  // integers

 

        // Create a text in the current Page

        pdf->CreateObject(acObjectTypeText, "Text");

        IacObjectPtr oText = pdf->GetObjectByName("Text");

        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"] = "Amyuni Technologies" + page;

    }

 

    // Save PDF

    pdf->Save("c:\\temp\\CreatePDFDocument_resulting.pdf", acFileSaveView);

 

    // DeletePages 5, 6,And 7.Note, the code deletes page

    // number 5 three times. This Is because every time the

    // pages above it are renumbered, so, effectively, we are

    // deleting pages 5 through 7 of the original document.

    pdf->DeletePage(5, 0);

    pdf->DeletePage(5, 0);

    pdf->DeletePage(5, 0);

 

    // Save PDF

    pdf->Save("c:\\temp\\CreatePDFDocument_resulting.pdf", acFileSaveView);

 

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

 

' Add 10 pages

For page = 1 To 10

    pdf.AddPage page - 1

 

    ' Create a text in the current Page

    pdf.CreateObject acObjectTypeText, "Text" & page

    Dim oText 

    Set oText = pdf.GetObjectByName("Text" & page)

    oText("Left") = 1000

    oText("Right") = 5000

    oText("Top") = 0

    oText("Bottom") = 4000

    oText("BorderColor") = &HFF00FF

    oText("BorderWidth") = acBorderWidthDouble

    oText("Text") = "Amyuni Technologies, page=" & page

Next

 

' Save PDF

pdf.Save "c:\temp\CreatePDFDocument_resulting.pdf", acFileSavellll

 

' DeletePages 5, 6,And 7.Note, the code deletes page

' number 5 three times. This Is because every time the

' pages above it are renumbered, so, effectively, we are

' deleting pages 5 through 7 of the original document.

pdf.DeletePage 5, 0

pdf.DeletePage 5, 0

pdf.DeletePage 5, 0

 

' Save PDF

pdf.Save "c:\temp\CreatePDFDocument_resulting.pdf", acFileSaveView

 

' destroy objects

Set pdf = Nothing

 

After the last DeletePage statement is executed, the "currentPage" is page 8.