Print Method

The Print method is used to print the document to a specified printer.

 

Syntax

VB:

Sub Print(PrinterName As String, Prompt As Integer)

C#:

void Print(string PrinterName, int Prompt)

C++:

HRESULT Print(BSTR PrinterName, long Prompt)

 

Parameters

PrinterName

If no printer name is specified, the document is printed to the default printer.

Prompt

If this parameter is set to True, the user is prompted with the printer selection dialog box.

 

Remarks

This method uses the PrintSequence attribute from Document Object to determine which pages are going to be exported.

 

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

Example

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
 
    ' print two copies of the document
    pdf.Copies = 2
 
    ' scale page in both directions (if size Is different
    ' than that of printer paper
    pdf.ScaleToPrinter = ACPDFCREACTIVEX.acScaleConstants.acScaleBoth
 
    ' Print all the document
    Dim PrinterName As String = ""  ' Default printer
    Dim Prompt As Integer = 0
    pdf.Print(PrinterName, Prompt)
 
    ' 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();
    }
 
    // print two copies of the document
    pdf.Copies = 2;
 
    // scale page in both directions (if size Is different
    // than that of printer paper
    pdf.ScaleToPrinter = ACPDFCREACTIVEX.acScaleConstants.acScaleBoth;
 
    // Print all the document
    string PrinterName = "";  // Default printer
    int Prompt = 0;
    pdf.Print(PrinterName, Prompt);
 
    // 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);
    }
 
    // print two copies of the document
    pdf->Copies = 2;
 
    // scale page in both directions (if size Is different
    // than that of printer paper
    pdf->ScaleToPrinter = acScaleBoth;
 
    // 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 = "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
 
' print two copies of the document
pdf.Copies = 2
 
' scale page in both directions (if size Is different
' than that of printer paper
pdf.ScaleToPrinter = acScaleBoth
 
' 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