Всем привет!
Использую Crystal первый раз, прошу помочь.
Из Delphi работаю с Crystal API:

var
JN:word;
begin
if OpenDialog1.Execute then begin
If PEOpenEngine then begin
RepNam := StrAlloc(80);
StrPCopy(RepNam, OpenDialog1.Filename);
JN := PEOpenPrintJob(RepNam);
if JN = 0 then ShowMessage('Ошибка открытия отчета');

StrDispose(RepNam);
end
else
ShowMessage('Ошибка открытия отчета');
end;

В system32 кинул crpe32.dll, PEOpenEngine выполняется, но PEOpenPrintJob возвращает 0. Что я не так делаю?
Заранее спасибо.