База IB.

Нужна очень помощь с отчетами.
Есть 3 таблицы. 2 из них связаны внешним ключом с третьей.
Данные из этих таблиц собираются в трех разные отчетах(pts_bus .fr3, pts_gruz.fr3, pts_sedan.fr3).

Пишу первый код:
void __fastcall Tdm::Get_rst_putlist(int num)
{
  rst_putlist->Close();
  rst_putlist->SQL->Clear();
  rst_putlist->SQL->Text="select *  from RST_PUTLIST_HEADER where NUMPUTLIST = :pnum";
  rst_putlist->ParamByName("pnum")->Value=num;
  rst_putlist->Open();
}

Второй:
void __fastcall Tdm::Print_putlist()
{
Get_rst_putlist(dm->rst_putlistNUMPUTLIST->Value);
 switch (dm->rst_putlistID_TIPMASHIN->Value){
       case 1:{dm->Report->LoadFromFile(ReportDir+"pts_bus.fr3");}break;
       case 2:{dm->Report->LoadFromFile(ReportDir+"pts_gruz.fr3");}break;
       case 3:{dm->Report->LoadFromFile(ReportDir+"pts_sedan.fr3");}break;
 default:
    ;
 }
 dm->Report->ShowReport();
}

Где:String ReportDir


И затем код для самой кнопки "Печать":

void __fastcall Tmain::acPrintPutlistExecute(TObject *Sender)
{
 dm->Print_putlist();


Результат получается такой:
    появляется пустой отчет без листа, а при закрытии остается в таблице только та строка, которую я выбирала на печать

Проблему решила, заменив ReportDir+"pts_bus.fr3" на "C:\\ ... \\pts_bus.fr3" и т.д.