CompositeReportで1つ目のレポートし出力されない (ID:44096)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ほとんど使ってる人はいらっしゃらないと思いますが… 以下のようなコードを書いて実行すると、repoContractP1しか出力されません。 色々と検索して、レポートを最初からCreateしたりして試してみたのですが、 結果は同じです。 何か原因として考えられる事はないでしょうか？ procedure TdialogPrintContract.OKButtonClick(Sender: TObject); begin repoContractP1 := TrepoContractP1.Create(Self); repoContractP2 := TrepoContractP2.Create(Self); try repoContractP1のQueryをオープンするプロシジャ; repoContractP2のQueryをオープンするプロシジャ; ContractQRCompositeReport.Preview; finally repoContractP1.Free; repoContractP2.Free; end; { ===== Close This Dialog. ===== } ModalResult := mrOk; end; procedure TdialogPrintContract.ContractQRCompositeReportAddReports( Sender: TObject); begin with ContractQRCompositeReport do begin Reports.Clear; Reports.Add(repoContractP1); Reports.Add(repoContractP2); end; end;