EndPrint Method

 

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 4 additional pages

    For page = 2 To 5

        pdf.AddPage(page)

    Next

    'Create object in each Page

    For page = 1 To 5

        'Set the current page

        pdf.CurrentPage = page

        '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.ToString 

    Next

    'Start Printing to the default printer

    pdf.StartPrint("", 0)

    'Printing

    For page = 1 To pdf.PageCount

        pdf.PrintPage(page)

    Next

    'Ending Printing

    pdf.EndPrint()

    'destroy objects

    pdf = 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 4 additional pages

    for (int page = 2; page < 6; page++)

    {

        pdf.AddPage(page);

    }

    // Create object in each Page

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

    {

        // Set the current page

        pdf.CurrentPage = page;

        // 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.ToString();

    }

    // Start Printing to the default printer

    pdf.StartPrint("", 0);

    // Printing

    for (int page = 1; page <= pdf.PageCount; page++)

    {

        pdf.PrintPage(page);

    }

    // Ending Printing

    pdf.EndPrint();

    // destroy objects

    pdf = null;

}

 

#include "windows.h"

#include "comutil.h"

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

    // Create 4 additional pages

    for (int page = 2; page < 6; page++)

    {

        pdf->AddPage(page);

    }

    // Create object in each Page

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

    {

        // Set the current page

        pdf->CurrentPage = page;

        // Set-up variables for attributes

        _variant_t varAttribute;

        varAttribute.vt = VT_I4;  // integers

        // Create a text in the current Page

        pdf->CreateObject(acObjectTypeText, "Text" + bstr_t(page));

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

        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" + bstr_t(page);

    }

    //  Start Printing to the default printer

    pdf->StartPrint("", 0);

    // Printing

    for (int page = 1; page <= pdf->PageCount; page++)

    {

        pdf->PrintPage(page);

    }

    // Ending Printing

    pdf->EndPrint();

    // 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 4 additional pages

For page = 2 To 5

    pdf.AddPage page

Next

'Create object in each Page

For page = 1 To 5

    'Set the current page

    pdf.CurrentPage = page

    '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

Next

'Start Printing to the default printer

pdf.StartPrint "", 0

'Printing

For page = 1 To pdf.PageCount

    pdf.PrintPage page

Next

'Ending Printing

pdf.EndPrint

'destroy Objects

Set pdf = Nothing

Set oText = Nothing