QRimegeが時々、真黒に・・回避方法は？

解決

mahiru 2007-03-21 21:45:35 No: 25430

QuickReportのNeedDataイベントで、印刷を呼び出したフォーム上のチャートを印刷するようにしています。

Form1.DBChart1.PrintPartialCanvas(QRImage1.Canvas,QRImage1.Canvas.ClipRect);

ちゃんとグラフがプレビューされるとこともあるのですが、何度も繰り返したりしていると不規則に、QRImage1が真黒になってしまいます。

また、同じように、Jpegを印刷するレポートも、QRImageが、真黒になることがあります。
現象としては、同じだと思うのですが

回避する方法がりますでしょうか？
（OS:XP Delphi：7）

めるめる 2007-03-22 10:04:43 No: 25431

私も以前、同様な現象で困っていました。

根本的な解決策なのかかどうかはわかりませんが、
プロジェクト − オプション − フォーム − 自動作成の対象からはずし、
印刷の都度クリエート、デストロイするようにしました。
以後、今のところ問題は発生していません。

  begin
    QRep1 := TQRep1.Create(Self);
    try
      QRep1.QRLabel1.Caption := 'hogehoge';
      QRep1.QRImage1.Picture := Form1.Image1.Picture;
      QRep1.Print;
    finally
      QRep1.Destroy;
    end;
  end;

はずしていたらごめんなさい。

mahiru 2007-03-22 20:52:56 No: 25432

めるめるさん、情報ありがとうございます。
QRepののっかているフォームは都度生成しているのですがこの現象になります。
QRimege BLackでぐぐって見ると、色々ありましたが・・・
しかしソースが必要のようでお手上げです。
（色々と、修正ソースがありました。）

開発元にある情報も、
Images appearing blacked out on printed reports, or images are missing and produce blank page
同じ現象の修正ソースのようなのですが、ソースが・・
see http://www.qusoft.com/fixpage.html
or http://www.qusoft.com/Imagefix2.html

たちまち、解決方法はあるようなので（対応できませんが）解決としておきます。