PEOpenEngine PEOpenPrintJob PEOpenSubreport PEClosePrintJob
uses CRDelphi;
procedure OpenPrintJob;
var
sTmp : string;
PrintJob : smallint;
begin
{Make sure the Engine is Open}
if not PEOpenEngine then
{Do Error Handler};
{Open the Main PrintJob}
PrintJob := PEOpenPrintJob('C:\Company.rpt');
{If PrintJob is zero, generate error}
if PrintJob = 0 then
{Do Error Handler};
end;
procedure OpenSubreportPrintJob;
var
sTmp : string;
SubPrintJob : smallint;
begin
{Make sure the Engine is Open}
if not PEOpenEngine then
{Do Error Handler};
{Open the Main PrintJob}
PrintJob := PEOpenPrintJob('C:\Company.rpt');
{If PrintJob is zero, generate error}
if PrintJob = 0 then
{Do Error Handler};
{Open a Subreport PrintJob}
sTmp := 'SubreportName' + #0;
SubPrintJob := PEOpenSubreport(PrintJob, @sTmp[1]);
{If PrintJob is zero, generate error}
if PrintJob = 0 then
{Do Error Handler};
end;
procedure ClosePrintJob;
begin
if (PrintJob <> 0) then
begin
{Close the Main report}
if not PEClosePrintJob(PrintJob) then
{Do Error Handler};
end;
end;
| Seagate Software IMG Holdings, Inc. http://www.seagatesoftware.com Support services: http://support.seagatesoftware.com |