Error: 544 Error in File UNKNOWN.RPT

Question

I have an application that is still running Crystal 8.5 Reports.
I periodically get the following error:
Error: 544 error in file unknown.rpt.
Access to report file denied. Another program may be using it.
Open print job <PEOpenPrintJob>.
There does not seem to be any consistency to when it happens.
The reports reside on a server and the runtime application uses a.rpt on a shared directory.
I can identify the last user to successfully print the report, have them logout of the application and the error goes away for a while. Different users can continue to print using the same .rpt. Then the problem comes back a little while later.
It only appears to happen to one of the reports
If I reboot the server the problem goes away for a couple of days. Then it comes back again.
I have verified and reverified the report and all seems to be OK.
Any suggestions are appreciated.
Thanks,
Leonard

Answer 1

Thanks Don,
I'm sure that is the problem.
I am using Delphi 7 and creating the Crpe Object  during runtime by using the procedure to follow.
Can you tell me how I would set the AsTempCopy option during runtime?
Also, my entire application is using crpe32.dll to run reports. Are you saying I can no longer do this?
We have purchased and tested crystal XI with my application I have just put off implementation in favor of other priority projects. Are there many enhancements to Crystal 2008 or can I save on the upgrade right now and implement XI?
procedure TfrmPOPrint.btnPrintClick(Sender: TObject);
var x: integer;
    cr: TCrpe;
begin
  inherited;
  cr := TCrpe.Create(nil);
  cr.WindowButtonBar.PrintSetupBtn := True;
  cr.OnWindowClose := crWindowClose;
  if (Sender as TButton).Tag = 0 then
      cr.Output := toPrinter
  else
      cr.Output := toWindow;
  try
    cr.ReportName := '';
    cr.ReportName := fcrReportPath + fcrReportName;
    x:=0;
    while x < cr.ParamFields.Count do
    begin
      if (UpperCase((cr.ParamFields[x].Name)) = 'USERNAME')then
          cr.ParamFields[x].CurrentValue := Username;
      inc(x);
    end;
    cr.execute;
  finally
    cr.Free
  end;
end;