void __fastcall TMainForm::BitBtn1Click(TObject *Sender)
{

  //Path to report
  String path = "c:\\rep_test.rpt";
  //Job for print
  short Job = PEOpenPrintJob(path.c_str());
  if (!Job)
    {
    ShowMessage("не найден "+path+", "+Job);
    return;
    }

  //Variables for Export
  UXDDiskOptions DiskOptions;
  UXFERTFFormatOptions SeparationOptions;
  PEExportOptions ExportOptions;

  //Structure for info output file
  DiskOptions.structSize = UXDDiskOptionsSize;
  DiskOptions.fileName = "c:\\samplefile.rtf";

  ExportOptions.StructSize = PE_SIZEOF_EXPORT_OPTIONS;
  lstrcpy(ExportOptions.formatDLLName, "CRXF_RTF.DLL");
  ExportOptions.formatType = UXFRichTextFormatType;
  ExportOptions.formatOptions = &SeparationOptions;
  strcpy(ExportOptions.destinationDLLName, "U2DDISK.DLL");
  ExportOptions.destinationType = UXDDiskType;
  ExportOptions.destinationOptions = &DiskOptions;
  //For export
  PEExportTo(Job, &ExportOptions);

  //Start Export to file
  if (!PEStartPrintJob(Job, true))
        ShowError(Job); // в этом месте ошибка если вызывается как функция
  //Close Job
  PEClosePrintJob(Job);
}

void __fastcall TMainForm::BitBtn2Click(TObject *Sender)
{
  MainForm->BitBtn1Click(MainForm)
}