AddLayerConfiguration Method

The AddLayerConfiguration method is used to insert a new layer configuration to a document. This method takes 1 string parameter, the unique layer configuration ID.

In case the layer configuration ID is not unique the method will internally generate a unique ID and return it. This returned layer configuration ID (might be identical to input) should be used for all layer configuration operations.

 

Syntax

VB:

Sub AddLayerConfiguration(ByRef configID As String)

C#:

void AddLayerConfiguration(ref string configID)

C++:

void AddLayerConfiguration([in, out] BSTR *configID)

 

Parameters

configID

This is the unique ID for this layer configuration. It is important that this ID be saved by the caller.

 

Remarks

Before creating a LayerConfig object, we need to check if the document already has a layer config and use it, rather than adding a new one.  Otherwise, it could corrupt the final PDF file.

 

If developer wants to add layers to existent PDF file, it is mandatory to delete any existent layer using the method DeleteAllLayers before adding the new layers.

 

For the moment, it is not possible to modify or append layers to existent layers.

 

The Layer and LayerConfiguration Attributes contains the details information for configure the layers.

 

Example 1

Checking if the PDF file has Layer Configuration

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)
 
    ' Open an existent PDF file
    Dim fileName As String = "c:\temp\PDFdocument.pdf"
    Dim password As String = ""
    pdf.Open(fileName, password)
 
    ' Create Layer Configuration Object
    Dim oLayerConfig As ACPDFCREACTIVEX.IacObject
 
    ' Get ArrayList of LayerConfigs in the document
    Dim arList() As System.Object = pdf.ObjectAttribute("Document", "LayerConfigs")
    If arList.Count = 0 Then
        Dim configID As String = ""
        pdf.AddLayerConfiguration(configID)
        oLayerConfig = pdf.GetObjectByName("LayerConfigs[" + configID + "]")
    Else
        oLayerConfig = arList(0)
    End If
 
    ' Create the layer
    Dim layerId As String = ""
    pdf.AddLayer("Layer 1", layerId)
 
    ' Define configuration
    oLayerConfig("ConfigOrder") = "[(Main Document)" + layerId + "]"
 
    ' Set CurrentPage
    pdf.CurrentPage = 1
 
    ' Adding a image in first page
    pdf.CreateObject(ACPDFCREACTIVEX.ObjectTypeConstants.acObjectTypePicture, "Picture1")
    Dim oPic As ACPDFCREACTIVEX.IacObject = pdf.GetObjectByName("Picture1")
    ' Set-up the Picture
    oPic("Left") = 1000
    oPic("Right") = 5000
    oPic("Top") = 1000
    oPic("Bottom") = 8500
    oPic("BorderColor") = &HFFFFFF
    oPic("BorderWidth") = ACPDFCREACTIVEX.acBorderWidth.acBorderWidthTriple
    ' Picture Attributes
    oPic("Filename") = "c:\temp\photo1.png"
    oPic("LayerID") = layerId
 
    ' Save PDF
    pdf.Save("c:\temp\CreatePDFDocument_resulting.pdf", ACPDFCREACTIVEX.FileSaveOptionConstants.acFileSaveView)
 
    oLayerConfig = 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);
 
    // Open an existent PDF file
    string fileName = @"c:\temp\PDFdocument.pdf";
    string password = "";
    pdf.Open(fileName, password);
 
    // Create Layer Configuration Object
    ACPDFCREACTIVEX.IacObject oLayerConfig;
 
    // Get ArrayList of LayerConfigs in the document
    System.Object[] arList = pdf.ObjectAttribute["Document", "LayerConfigs"];
    if (arList.Length == 0)
    {
        string configID = "";
        pdf.AddLayerConfiguration(ref configID);
        oLayerConfig = pdf.GetObjectByName("LayerConfigs[" + configID + "]");
    }
    else
    {
        oLayerConfig = (ACPDFCREACTIVEX.IacObject)arList[0];
    }
 
    // Create the layer
    string layerId = "";
    pdf.AddLayer("Layer 1", ref layerId);
 
    // Define configuration
    oLayerConfig["ConfigOrder"] = "[(Main Document)" + layerId + "]";
 
    // Set CurrentPage
    pdf.CurrentPage = 1;
 
    // Adding a image in first page
    pdf.CreateObject(ACPDFCREACTIVEX.ObjectTypeConstants.acObjectTypePicture, "Picture1");
    ACPDFCREACTIVEX.IacObject oPic = pdf.GetObjectByName("Picture1");
    // Set-up the Picture
    oPic["Left"] = 1000;
    oPic["Right"] = 5000;
    oPic["Top"] = 1000;
    oPic["Bottom"] = 8500;
    oPic["BorderColor"] = 0xFFFFFF;
    oPic["BorderWidth"] = ACPDFCREACTIVEX.acBorderWidth.acBorderWidthTriple;
    // Picture Attributes
    oPic["Filename"] = @"c:\temp\photo1.png";
    oPic["LayerID"] = layerId;
 
    // Save PDF
    pdf.Save(@"c:\temp\CreatePDFDocument_resulting.pdf", ACPDFCREACTIVEX.FileSaveOptionConstants.acFileSaveView);
 
    oLayerConfig = null;
    oPic = null;
}
#include <iostream>
#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));
 
    // Open an existent PDF file
    _bstr_t fileName = "c:\\temp\\PDFdocument.pdf";
    _bstr_t password = "";
    pdf->Open(fileName, password);
 
    // Hresult
    HRESULT hr;
 
    // Create Layer Configuration Object
    IacObjectPtr oLayerConfig;
 
    // Get ArrayList of LayerConfigs in the document
    _variant_t arList;
    pdf->get_ObjectAttribute(bstr_t("Document"), bstr_t("LayerConfigs"), &arList);
    assert(arList.vt & (VT_ARRAY | VT_DISPATCH));
    SAFEARRAY *psa = arList.parray;
 
    long lowerBound, upperBound;  // get array bounds
    SafeArrayGetLBound(psa, 1, &lowerBound);
    SafeArrayGetUBound(psa, 1, &upperBound);
    long cnt_elements = upperBound - lowerBound + 1;
 
    if (cnt_elements == 0)
    {
        _bstr_t configID = "";
        hr = pdf->AddLayerConfiguration(&configID.GetBSTR());
        oLayerConfig = pdf->GetObjectByName("LayerConfigs[" + configID + "]");
    }
    else
    {
        oLayerConfig = ((LPDISPATCH*)(psa->pvData))[0];
    }
 
    // Create the layer
    _bstr_t layerId;
    hr = pdf->AddLayer("Layer 1", &layerId.GetBSTR());
 
    // Define configuration
    oLayerConfig->Attribute["ConfigOrder"] = "[(Main Document)" + layerId + "]";
 
    // Set CurrentPage
    pdf->CurrentPage = 1;
 
    // Variable for Attributes
    _variant_t varAttribute;
    varAttribute.vt = VT_I4;
 
    // Adding a image in first page
    hr = pdf->CreateObject(acObjectTypePicture, "Picture1");
    IacObjectPtr oPic = pdf->GetObjectByName("Picture1");
    // Set-up the Picture
    oPic->Attribute["Left"] = 1000;
    oPic->Attribute["Right"] = 5000;
    oPic->Attribute["Top"] = 1000;
    oPic->Attribute["Bottom"] = 8500;
    varAttribute.lVal = 0xFFFFFF;
    oPic->Attribute["BorderColor"] = varAttribute;
    varAttribute.lVal = acBorderWidthSimple;
    // Picture Attributes
    oPic->Attribute["Filename"] = "c:\\temp\\photo1.png";
    oPic->Attribute["LayerID"] = layerId;
 
    // Save PDF
    pdf->Save("c:\\temp\\CreatePDFDocument_resulting.pdf", acFileSaveView);
 
    // destroy objects
    pdf = NULL;
    oLayerConfig = NULL;
    oPic = NULL;
 
    return 0;
}

 

Example 2

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 all the Layers
    Dim layerID1 As String = ""
    Dim layerID2 As String = ""
    pdf.AddLayer("Layer 1", layerID1)
    pdf.AddLayer("Layer 2", layerID2)
 
    ' Define the layer configuration as it will appear in a PDF Viewer, e.g.the order And visibility of layers
    Dim configID As String = ""
    pdf.AddLayerConfiguration(configID)
 
    ' order of appearance in the tree
    pdf.ObjectAttribute("LayerConfigs[" + configID + "]", "ConfigOrder") = "[(Main Document)[" + layerID2 + " " + layerID1 + "]]"
 
    ' set one of the layers visibility to off by default
    pdf.ObjectAttribute("LayerConfigs[" + configID + "]", "ConfigOFF") = "[" + layerID2 + "]"
 
    ' Set CurrentPage
    pdf.CurrentPage = 1
 
    ' Adding Photo 1
    pdf.CreateObject(ACPDFCREACTIVEX.ObjectTypeConstants.acObjectTypePicture, "Picture1")
    Dim oPic As ACPDFCREACTIVEX.IacObject = pdf.GetObjectByName("Picture1")
    ' Set-up the Picture
    oPic("Left") = 1000
    oPic("Right") = 5000
    oPic("Top") = 1000
    oPic("Bottom") = 8500
    oPic("BorderColor") = &HFFFFFF
    oPic("BorderWidth") = ACPDFCREACTIVEX.acBorderWidth.acBorderWidthTriple
    ' Picture Attributes
    oPic("Filename") = "c:\temp\photo1.jpg"
    oPic("LayerID") = layerID1
 
    ' Adding Photo 2
    pdf.CreateObject(ACPDFCREACTIVEX.ObjectTypeConstants.acObjectTypePicture, "Picture2")
    oPic = pdf.GetObjectByName("Picture2")
    ' Set-up the Picture
    oPic("Left") = 6000
    oPic("Right") = 10000
    oPic("Top") = 1000
    oPic("Bottom") = 8500
    oPic("BorderColor") = &HFFFFFF
    oPic("BorderWidth") = ACPDFCREACTIVEX.acBorderWidth.acBorderWidthTriple
    ' Picture Attributes
    oPic("Filename") = "c:\temp\photo2.jpg"
    oPic("LayerID") = layerID1
 
    ' Adding Photo 3
    pdf.CreateObject(ACPDFCREACTIVEX.ObjectTypeConstants.acObjectTypePicture, "Picture3")
    oPic = pdf.GetObjectByName("Picture3")
    ' Set-up the Picture
    oPic("Left") = 1000
    oPic("Right") = 5000
    oPic("Top") = 9000
    oPic("Bottom") = 17500
    oPic("BorderColor") = &HFFFFFF
    oPic("BorderWidth") = ACPDFCREACTIVEX.acBorderWidth.acBorderWidthTriple
    ' Picture Attributes
    oPic("Filename") = "c:\temp\photo3.jpg"
    oPic("LayerID") = layerID2
 
    ' Adding Photo 4
    pdf.CreateObject(ACPDFCREACTIVEX.ObjectTypeConstants.acObjectTypePicture, "Picture4")
    oPic = pdf.GetObjectByName("Picture4")
    ' Set-up the Picture
    oPic("Left") = 6000
    oPic("Right") = 10000
    oPic("Top") = 9000
    oPic("Bottom") = 17500
    oPic("BorderColor") = &HFFFFFF
    oPic("BorderWidth") = ACPDFCREACTIVEX.acBorderWidth.acBorderWidthTriple
    ' Picture Attributes
    oPic("Filename") = "c:\temp\photo4.jpg"
    oPic("LayerID") = layerID2
 
    ' Save PDF
    pdf.Save("c:\temp\CreatePDFDocument_resulting.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);
 
    // Create all the Layers
    string layerID1 = "";
    string layerID2 = "";
    pdf.AddLayer("Layer 1", ref layerID1);
    pdf.AddLayer("Layer 2", ref layerID2);
 
    // Define the layer configuration as it will appear in a PDF Viewer, e.g.the order and visibility of layers
    string configID = "";
    pdf.AddLayerConfiguration(ref configID);
 
    // order of appearance in the tree
    pdf.ObjectAttribute["LayerConfigs[" + configID + "]", "ConfigOrder"] = "[(Main Document)[" + layerID2 + " " + layerID1 + "]]";
 
    // set one of the layers visibility to off by default
    pdf.ObjectAttribute["LayerConfigs[" + configID + "]", "ConfigOFF"] = "[" + layerID2 + "]";
 
    // Set CurrentPage
    pdf.CurrentPage = 1;
 
    // Adding Photo 1
    pdf.CreateObject(ACPDFCREACTIVEX.ObjectTypeConstants.acObjectTypePicture, "Picture1");
    ACPDFCREACTIVEX.IacObject oPic = pdf.GetObjectByName("Picture1");
    // Set-up the Picture
    oPic["Left"] = 1000;
    oPic["Right"] = 5000;
    oPic["Top"] = 1000;
    oPic["Bottom"] = 8500;
    oPic["BorderColor"] = 0xFFFFFF;
    oPic["BorderWidth"] = ACPDFCREACTIVEX.acBorderWidth.acBorderWidthTriple;
    // Picture Attributes
    oPic["Filename"] = @"c:\temp\photo1.jpg";
    oPic["LayerID"] = layerID1;
 
    // Adding Photo 2
    pdf.CreateObject(ACPDFCREACTIVEX.ObjectTypeConstants.acObjectTypePicture, "Picture2");
    oPic = pdf.GetObjectByName("Picture2");
    // Set-up the Picture
    oPic["Left"] = 6000;
    oPic["Right"] = 10000;
    oPic["Top"] = 1000;
    oPic["Bottom"] = 8500;
    oPic["BorderColor"] = 0xFFFFFF;
    oPic["BorderWidth"] = ACPDFCREACTIVEX.acBorderWidth.acBorderWidthTriple;
    // Picture Attributes
    oPic["Filename"] = @"c:\temp\photo2.jpg";
    oPic["LayerID"] = layerID1;
 
    // Adding Photo 3
    pdf.CreateObject(ACPDFCREACTIVEX.ObjectTypeConstants.acObjectTypePicture, "Picture3");
    oPic = pdf.GetObjectByName("Picture3");
    // Set-up the Picture
    oPic["Left"] = 1000;
    oPic["Right"] = 5000;
    oPic["Top"] = 9000;
    oPic["Bottom"] = 17500;
    oPic["BorderColor"] = 0xFFFFFF;
    oPic["BorderWidth"] = ACPDFCREACTIVEX.acBorderWidth.acBorderWidthTriple;
    // Picture Attributes
    oPic["Filename"] = @"c:\temp\photo3.jpg";
    oPic["LayerID"] = layerID2;
 
    // Adding Photo 4
    pdf.CreateObject(ACPDFCREACTIVEX.ObjectTypeConstants.acObjectTypePicture, "Picture4");
    oPic = pdf.GetObjectByName("Picture4");
    // Set-up the Picture
    oPic["Left"] = 6000;
    oPic["Right"] = 10000;
    oPic["Top"] = 9000;
    oPic["Bottom"] = 17500;
    oPic["BorderColor"] = 0xFFFFFF;
    oPic["BorderWidth"] = ACPDFCREACTIVEX.acBorderWidth.acBorderWidthTriple;
    // Picture Attributes
    oPic["Filename"] = @"c:\temp\photo4.jpg";
    oPic["LayerID"] = layerID2;
 
    // Save PDF
    pdf.Save(@"c:\temp\CreatePDFDocument_resulting.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));
 
    // Create all the Layers
    HRESULT hr;
    _bstr_t layerID1;
    _bstr_t layerID2;
    hr = pdf->AddLayer("Layer 1", &layerID1.GetBSTR());
    hr = pdf->AddLayer("Layer 2", &layerID2.GetBSTR());
 
    // Define the layer configuration as it will appear in a PDF Viewer, e.g.the order and visibility of layers
    _bstr_t configID = "";
    hr = pdf->AddLayerConfiguration(&configID.GetBSTR());
 
    // order of appearance in the tree
    hr = pdf->ObjectAttributeStr("LayerConfigs[" + configID + "]", "ConfigOrder", "[(Main Document)[" + layerID2 + " " + layerID1 + "]]");
 
    // set one of the layers visibility to off by default
    hr = pdf->ObjectAttributeStr("LayerConfigs[" + configID + "]", "ConfigOFF", "[" + layerID2 + "]");
 
    // Set CurrentPage
    pdf->CurrentPage = 1;
 
    // Variable for Attributes
    _variant_t varAttribute;
    varAttribute.vt = VT_I4;  // integers
 
    // Adding Photo 1
    hr = pdf->CreateObject(acObjectTypePicture, "Picture1");
    IacObjectPtr oPic = pdf->GetObjectByName("Picture1");
    // Set-up the Picture
    oPic->Attribute["Left"] = 1000;
    oPic->Attribute["Right"] = 5000;
    oPic->Attribute["Top"] = 1000;
    oPic->Attribute["Bottom"] = 8500;
    varAttribute.lVal = 0xFFFFFF;
    oPic->Attribute["BorderColor"] = varAttribute;
    varAttribute.lVal = acBorderWidthSimple;
    // Picture Attributes
    oPic->Attribute["Filename"] = "c:\\temp\\photo1.jpg";
    oPic->Attribute["LayerID"] = layerID1;
 
    // Adding Photo 2
    hr = pdf->CreateObject(acObjectTypePicture, "Picture2");
    oPic = pdf->GetObjectByName("Picture2");
    // Set-up the Picture
    oPic->Attribute["Left"] = 6000;
    oPic->Attribute["Right"] = 10000;
    oPic->Attribute["Top"] = 1000;
    oPic->Attribute["Bottom"] = 8500;
    varAttribute.lVal = 0xFFFFFF;
    oPic->Attribute["BorderColor"] = varAttribute;
    varAttribute.lVal = acBorderWidthSimple;
    // Picture Attributes
    oPic->Attribute["Filename"] = "c:\\temp\\photo2.jpg";
    oPic->Attribute["LayerID"] = layerID1;
 
    // Adding Photo 3
    hr = pdf->CreateObject(acObjectTypePicture, "Picture3");
    oPic = pdf->GetObjectByName("Picture3");
    // Set-up the Picture
    oPic->Attribute["Left"] = 1000;
    oPic->Attribute["Right"] = 5000;
    oPic->Attribute["Top"] = 9000;
    oPic->Attribute["Bottom"] = 17500;
    varAttribute.lVal = 0xFFFFFF;
    oPic->Attribute["BorderColor"] = varAttribute;
    varAttribute.lVal = acBorderWidthSimple;
    // Picture Attributes
    oPic->Attribute["Filename"] = "c:\\temp\\photo3.jpg";
    oPic->Attribute["LayerID"] = layerID2;
 
    // Adding Photo 1
    hr = pdf->CreateObject(acObjectTypePicture, "Picture4");
    oPic = pdf->GetObjectByName("Picture4");
    // Set-up the Picture
    oPic->Attribute["Left"] = 6000;
    oPic->Attribute["Right"] = 10000;
    oPic->Attribute["Top"] = 9000;
    oPic->Attribute["Bottom"] = 17500;
    varAttribute.lVal = 0xFFFFFF;
    oPic->Attribute["BorderColor"] = varAttribute;
    varAttribute.lVal = acBorderWidthSimple;
    // Picture Attributes
    oPic->Attribute["Filename"] = "c:\\temp\\photo4.jpg";
    oPic->Attribute["LayerID"] = layerID2;
 
 
    // Save PDF
    pdf->Save("c:\\temp\\CreatePDFDocument_resulting.pdf", acFileSaveView);
 
    return 0;
}
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
 
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 all the Layers
Dim layerID1
layerID1 = "Layer-1"
Dim layerID2
layerID2 = "Layer-2"
pdf.AddLayer "Layer 1", (layerID1)
pdf.AddLayer "Layer 2", (layerID2)
 
' Define the layer configuration as it will appear in a PDF Viewer, e.g.the order And visibility of layers
Dim configID
configID = "Cgf-1"
pdf.AddLayerConfiguration (configID)
 
' order of appearance in the tree
pdf.ObjectAttribute("LayerConfigs[" + configID + "]", "ConfigOrder") = "[(Main Document)[" + layerID2 + " " + layerID1 + "]]"
 
' set one of the layers visibility to off by default
pdf.ObjectAttribute("LayerConfigs[" + configID + "]", "ConfigOFF") = "[" + layerID2 + "]"
 
' Set CurrentPage
pdf.CurrentPage = 1
 
' Adding Photo 1
pdf.CreateObject acObjectTypePicture, "Picture1"
Dim oPic
Set oPic = pdf.GetObjectByName("Picture1")
' Set-up the Picture
oPic("Left") = 1000
oPic("Right") = 5000
oPic("Top") = 1000
oPic("Bottom") = 8500
oPic("BorderColor") = &HFFFFFF
oPic("BorderWidth") = 3
' Picture Attributes
oPic("Filename") = "c:\temp\photo1.jpg"
oPic("LayerID") = layerID1
 
' Adding Photo 2
pdf.CreateObject acObjectTypePicture, "Picture2"
Set oPic = pdf.GetObjectByName("Picture2")
' Set-up the Picture
oPic("Left") = 6000
oPic("Right") = 10000
oPic("Top") = 1000
oPic("Bottom") = 8500
oPic("BorderColor") = &HFFFFFF
oPic("BorderWidth") = 3
' Picture Attributes
oPic("Filename") = "c:\temp\photo2.jpg"
oPic("LayerID") = layerID1
 
' Adding Photo 3
pdf.CreateObject acObjectTypePicture, "Picture3"
Set oPic = pdf.GetObjectByName("Picture3")
' Set-up the Picture
oPic("Left") = 1000
oPic("Right") = 5000
oPic("Top") = 9000
oPic("Bottom") = 17500
oPic("BorderColor") = &HFFFFFF
oPic("BorderWidth") = 3
' Picture Attributes
oPic("Filename") = "c:\temp\photo3.jpg"
oPic("LayerID") = layerID2
 
' Adding Photo 4
pdf.CreateObject acObjectTypePicture, "Picture4"
Set oPic = pdf.GetObjectByName("Picture4")
' Set-up the Picture
oPic("Left") = 6000
oPic("Right") = 10000
oPic("Top") = 9000
oPic("Bottom") = 17500
oPic("BorderColor") = &HFFFFFF
oPic("BorderWidth") = 3
' Picture Attributes
oPic("Filename") = "c:\temp\photo4.jpg"
oPic("LayerID") = layerID2
 
' Save PDF
pdf.Save "c:\temp\CreatePDFDocument_resulting.pdf", acFileSaveView