Click here to Skip to main content
15,890,438 members
Please Sign up or sign in to vote.
0.00/5 (No votes)
I try this code.
It works but can't export crystal report data in pdf. How can I export it with crystal report data? Thanks

What I have tried:

<?php


$my_pdf = "C:\xampp\htdocs\CrystalReport1.pdf";
$databaselocation = "C:\Users\Plastimer\Documents\Visual Studio 2015\Projects\CReport\CReport\TABLEREPORT.mdb";
$conn = new COM('ADODB.Connection') or exit('Cannot start ADO.');
$conn->Open("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=$databaselocation");

$sql = 'SELECT `STOCK_ISSUANCE_HDR`.`SIS #`, `STOCK_ISSUANCE_HDR`.`SIS DATE`, `STOCK_ISSUANCE_HDR`.`TRANS #*A`, `T_STOCKFG`.`PRODCODE *B`, `T_STOCKFG`.`STK_DESC`, `STOCK_ISSUANCE_DTL`.`QTY`, `STOCK_ISSUANCE_DTL`.`REMARKS`
FROM (`STOCK_ISSUANCE_HDR` `STOCK_ISSUANCE_HDR` INNER JOIN `STOCK_ISSUANCE_DTL` `STOCK_ISSUANCE_DTL` ON `STOCK_ISSUANCE_HDR`.`TRANS #*A`=`STOCK_ISSUANCE_DTL`.`TRANS #*A`) INNER JOIN `T_STOCKFG` `T_STOCKFG` ON `STOCK_ISSUANCE_DTL`.`PRODCODE *B`=`T_STOCKFG`.`PRODCODE *B`
';


$rs = $conn->Execute($sql);


$my_report = "C:\Users\Plastimer\Documents\CrystalReport1.rpt";


$ObjectFactory= new COM("CrystalReports13.ObjectFactory.1") or die ("Error on load");
$crapp = $ObjectFactory-> CreateObject("CrystalDesignRunTime.Application");
$creport = $crapp->OpenReport($my_report, 1);

$rptParams = $creport->ParameterFields;
$rptParam = $rptParams->Item(1);
$para = $creport->ParameterFields;
$param = $para->Item(2);


$oScript = new COM("MSScriptControl.ScriptControl");
$oScript->Language = "VBScript";
$oScript->AllowUI = false;
$oScript->AddObject('rptParam', $rptParam, false);
$oScript->AddCode('Function SetDateParameter(end_date)
rptParam.AddCurrentValue(CDate(end_date))
End Function');

$oScript = new COM("MSScriptControl.ScriptControl");
$oScript->Language = "VBScript";
$oScript->AllowUI = false;
$oScript->AddObject('param', $param,false);
$oScript->AddCode('Function SetDateParameter(srat_date)
param.AddCurrentValue(CDate(srat_date))
End Function');

$creport->DiscardSavedData();
$creport->ReadRecords();
$creport->EnableParameterPrompting = 0;
$creport->FormulaSyntax = 0;


$creport->ExportOptions->DiskFileName = $my_pdf;
$creport->ExportOptions->PDFExportAllPages = True;
$creport->ExportOptions->DestinationType = 1;
$creport->ExportOptions->FormatType = 31;
$creport->Export(true);

print "<embed src='http://localhost/CrystalReport1.pdf' width=\"100%\" height=\"100%\">"
?>
Posted
Updated 4-Feb-18 16:33pm
v3

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)



CodeProject, 20 Bay Street, 11th Floor Toronto, Ontario, Canada M5J 2N8 +1 (416) 849-8900