Crystal Reports

The following Visual C example shows how to print a document to Win2PDF using Crystal Reports.

void CPrinting::PrintPDF(LPTSTR sPrintType, int iPrintMethod)

{

       _TCHAR sFileName[PE_FILE_PATH_LEN] = "";

       short hJob = 0;

       PEPrintOptions  PrintOptions;

       PEOpenEngine();

       hJob = PEOpenPrintJob("d:\\pics32\\pics32\\live\\quote.rpt");

       PrintOptions.StructSize     = PE_SIZEOF_PRINT_OPTIONS;

       PrintOptions.startPageN     = 1;

       PrintOptions.stopPageN      = -1;

       PrintOptions.nReportCopies  = 1;

       PrintOptions.collation      = PE_COLLATED;

       _tcscpy(sFileName, "D:\\temp\\test.pdf");  // Here is the PDF file name

       _tcscpy(PrintOptions.outputFileName, sFileName);

       PESetPrintOptions(hJob, &PrintOptions);

       PEOutputToPrinter(hJob, 1);

       PEStartPrintJob(hJob, TRUE);

       PECloseEngine();

}

The same example using Visual Basic follows.

Public Function printAPIReport(RptName As String, rptPath As String, outPath As String) As Boolean

   Dim PrintOptions As PEPrintOptions

   Dim hjob As Integer

   PEOpenEngine()

   hjob = PEOpenPrintJob(rptPath & RptName)

   PrintOptions.StructSize = PE_SIZEOF_PRINT_OPTIONS

   PrintOptions.StartPageN = 1

   PrintOptions.stopPageN = -1

   PrintOptions.nReportCopies = 1

   PrintOptions.collation = PE_COLLATED

   PrintOptions.outputFileName = "c:\\Temp\\TEST.PDF" & Chr(0)

   PESetPrintOptions(hjob, PrintOptions)

   PEOutputToPrinter(hjob, 1)

   PEStartPrintJob(hjob, True)

   PECloseEngine

End Function