掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
QuickReport プレビュー画面の印刷ボタン (ID:29348)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
HOta様 ご返答ありがとうございます。 原因はよくわかりませんが、全ての表示が完了 （ステータスバーのパーセンテージが１００％）になっても無効のままでした。 不思議なことにデバッグでステップしながらゆっくりと流すと有効になりました。 さらに不思議なことに、かなりスペックの悪いマシンでやると間違いなく 有効になるという現象でした。 恥ずかしながら、初心者なので力ずくで解決してしまいました。 もともとのロジック＞＞＞ (呼出元フォーム） QuickRepフォーム.Quickrep1.PreviewModal; 修正後のロジック＞＞＞ (呼出元フォーム） プレビュー完了変数 := False QuickRepフォーム.Quickrep1.PreviewModal; while プレビュー完了変数 = False do sleep(100); (QuickRepのフォーム) procedure QuickRepフォーム.ページフッターAfterPrint(Sender: TQRCustomBand; BandPrinted: Boolean); //ページフッター印刷後イベント begin if 総ページ数変数 = QuickRep1.PageNumber then プレビュー完了変数 := True; end; かなり強引ですが、これで回避することができました。 HOta様 ありがとうございました。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.