Printer Properties

Property	Description	Type	Values	Default Value
PrintFileName	When set, the document is printed to a file as opposed to the printer.	String		Null
Copies	Number of copies to print document.	Integer	>= 1	1
Duplex	Activate duplex printing of document.	Integer	0: Printer default. 1: No duplex. 2: Vertical duplex. 3: Horizontal duplex.	0: Printer default.
ScaleToPrinter	Scale contents to fit in printed page.	enum acScaleType	0: acScaleNone. 1: acScaleHorizontal. 2: acScaleVertical. 3: acScaleBoth. 4: acScaleRotatePage	0: acScaleNone

Visual Basic .Net
C#
C++
VBScript

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)

' 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

' print two copies of the document

pdf.Copies = 2

' PDF Creator will automatically rotate each page depending on whether it would fit better vertically or horizontally

pdf.ScaleToPrinter = ACPDFCREACTIVEX.acScaleConstants.acScaleBoth Or ACPDFCREACTIVEX.acScaleConstants.acScaleRotatePage

' Print all the document

Dim PrinterName As String = "" ' Default printer

Dim Prompt As Integer = 0

pdf.Print(PrinterName, Prompt)

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();
    }
 
    // print two copies of the document
    pdf.Copies = 2;
 
    // PDF Creator will automatically rotate each page depending on whether it would fit better vertically or horizontally
    pdf.ScaleToPrinter = ACPDFCREACTIVEX.acScaleConstants.acScaleBoth | ACPDFCREACTIVEX.acScaleConstants.acScaleRotatePage;
 
    // Print all the document
    string PrinterName = "";  // Default printer
    int Prompt = 0;
    pdf.Print(PrinterName, Prompt);
}

#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);
    }
 
    // print two copies of the document
    pdf->Copies = 2;
 
    // PDF Creator will automatically rotate each page depending on whether it would fit better vertically or horizontally
    pdf->ScaleToPrinter = acScaleBoth | acScaleRotatePage;
 
    // Print all the document
    bstr_t PrinterName = "";  // Default printer
    long Prompt = 0;
    pdf->Print(PrinterName, Prompt);
 
    // destroy objects
    pdf = NULL;
 
    return 0;
}

' acScaleConstants
Const acScaleBoth = 3
Const acScaleHorizontal = 1
Const acScaleNone = 0
Const acScaleRotatePage = 4
Const acScaleVertical = 2
 
' 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
 
' print two copies of the document
pdf.Copies = 2
 
' PDF Creator will automatically rotate each page depending on whether it would fit better vertically or horizontally
pdf.ScaleToPrinter = acScaleBoth Or acScaleRotatePage
 
' Print all the document
Dim PrinterName
PrinterName = ""  ' Default printer
Dim Prompt
Prompt = 0
pdf.Print PrinterName, Prompt
 
' destroy Objects
Set pdf = Nothing
Set oText = Nothing

Printing Properties

Remarks

Example