O componente CJVQRBacode descente do QRImage, este componente possui este bug.
Recomendo atualizar o QuickReport standart no site: www.qusoft.com/stanlegacy.html
Segue recomendações do suporte do fabricante:
[quote:3jspcetn]QRImage not printing - intermittent failures\
==============================
Images are blank or printed as black rectangles, at random.
The first thing to do is test your report with both of QR''s printing modes,\r\ndirect print, and metafile print.
1. Direct print.
This is done by calling the Print method -
Quickrep1.Print;
This causes the report to be generated from the data and painted straight
onto the printer canvas.
2. Metafile print.
The calling code is -
// creates the report and paints metafile images of each page which are
saved
Quickrep1.Prepare;
Quickrep1.QPrinter.print; // the saved images are sent to the printer
without recreating the report
// Clean up\r\nQuickrep1.QRPrinter.Free;
Quickrep1.QRPrinter := nil;
If both of the modes produce blank or black images, one or more of the
following
might help.
1. Put a delay between image prints of up to 500 msec. The BeforePrint
event of the band containing the control is a good place to put the
Sleep() call.
2. Force the QRImage control to update before every print -
In the band BeforePrint -
Delphi
QRImage1.Update;
application.Processmessages;
C++
QRImage->Update();
Application->ProcessMessages();
and maybe add a delay also.
3. Force the QRImage to resize and update -
Delphi\r\nQRImage1.width := QRImage1.width - 5;
QRImage1.width := QRImage1.width + 5;
QRImage1.Update;
application.Processmessages;
C++
QRImage1->Width = QRImage->Width - 5
QRImage1->Width = QRImage->Width + 5
QRImage->Update();
Application->ProcessMessages();
4. If none of the above works, replace the QRImage with a QRDbImage.
You will also need to put the image in a database and connect with a TTable
control ...
It''s a lot of hassle but it never fails.
5. From the KB -
If you are using a TQRImage and loading the image directly into the
component does not work, try loading the image into a TBitmap and then
copying the data to the TQRImage component.
Example 1:
MyBitmap.LoadFromFile(somefile); // MyBitmap is a TBitmap that is created
and freed somewhere else
QRImage.Picture.Bitmap.Assign(MyBitmap);
Example 2:
MyBitmap.LoadFromFile(somefile);
QRImage.Picture.Bitmap.Height := MyBitmap.Height;
QRImage.Picture.Bitmap.Width := MyBitmap.Width;
QRImage.Picture.Bitmap.Canvas.Draw(0,0, MyBitmap);