PrintPage Method

The PrintPage method prints the specified page. This method is called for every page to be printed.

 

Syntax

VB:

Sub PrintPage(PageNumber As Integer)

C#:

void PrintPage(int PageNumber)

C++:

HRESULT PrintPage(long PageNumber)

 

Parameters

PageNumber

Page numbers start with Page 1.

 

Remarks

See also the Print, StartPrint, EndPrint, PrintPage Event sections.

 

More than 1 document can be printed within a single StartPrint / EndPrint bracket.

 

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


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


 


 


}


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


 


' Initializing PDFCreativeX Object


Dim pdf


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


 


' 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