QuickReportのNeedDataイベントで、印刷を呼び出したフォーム上のチャートを印刷するようにしています。
Form1.DBChart1.PrintPartialCanvas(QRImage1.Canvas,QRImage1.Canvas.ClipRect);
ちゃんとグラフがプレビューされるとこともあるのですが、何度も繰り返したりしていると不規則に、QRImage1が真黒になってしまいます。
また、同じように、Jpegを印刷するレポートも、QRImageが、真黒になることがあります。
現象としては、同じだと思うのですが
回避する方法がりますでしょうか？
（OS:XP Delphi：7）
私も以前、同様な現象で困っていました。
根本的な解決策なのかかどうかはわかりませんが、
プロジェクト − オプション − フォーム − 自動作成の対象 からはずし、
印刷の都度クリエート、デストロイするようにしました。
以後、今のところ問題は発生していません。
begin
QRep1 := TQRep1.Create(Self);
try
QRep1.QRLabel1.Caption := 'hogehoge';
QRep1.QRImage1.Picture := Form1.Image1.Picture;
QRep1.Print;
finally
QRep1.Destroy;
end;
end;
はずしていたらごめんなさい。
めるめるさん、情報ありがとうございます。
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
たちまち、解決方法はあるようなので（対応できませんが）解決としておきます。