BorlandTalk.com

Henrik Andersson · Guest

Hi!

I have a QuickReport that may contain an image. In BeforePrint on a
childband I call the code below. However sometimes when I print from
preview, no images is printed. Any ideas why this could happen?

Using QuickReport 4.0.6 and Delphi 2006.

procedure TfrmRappBokSidaQR.VisaBild();
var
sBildfil, ImgFile, sFileExt: string;
sBildkatalog: string;
fRatio: real;
begin
if (qryRapp.FieldByName('ANT_PICTUREADDRESS').AsString <> '') then
begin
sBildkatalog := frmBok.pBildkatalog;

sBildfil := qryRapp.FieldValues['ANT_BILDADRESS'];

if FileExists(ImgFile) then
begin
try
QRImage1.Picture.LoadFromFile(ImgFile);
ChildBild.Height := 800;
if (QRImage1.Picture.Height > QRImage1.Height) or
(QRImage1.Picture.Width > QRImage1.Width) then
begin

if QRImage1.Picture.Height > QRImage1.Picture.Width then
begin
fRatio := QRImage1.Height / QRImage1.Picture.Height ;
QRImage1.Width := Floor(fRatio * QRImage1.Picture.Width);
end
else
begin
fRatio := QRImage1.Width / QRImage1.Picture.Width ;
QRImage1.Height := Floor(fRatio * QRImage1.Picture.Height);
end;
end;
qrMain.NewPage;
except
QRImage1.Picture := nil;
ChildBild.Height := 1;
end
end
else
begin
QRImage1.Picture := nil;
ChildBild.Height := 1;
end;
end
else
begin
QRImage1.Picture := nil;
ChildBild.Height := 1;
end;
end;

Jean-Francois Picard · Guest

Hello.

There's no miracle to be done. We had the same problem with the logo of
our customers in reports. Sometimes it worked, sometimes not and we
didn't know why. We tried number of solutions but nothing worked. Except
one: TExcellentImagePrinter. It may sound like a pub, but after the
installation, (with a little hack of the TQRImage.Print) we got no more
complains.

Check this site: http://www.code4sale.com/joehecht/prndib.htm

JFPicard

Henrik Andersson wrote:

Mike Shkolnik · Guest

Hi,

Henrik Andersson · Guest

I tried that. The pictures prints, but in miniature size...

The strange thing is that I have two reports. One prints all "notes"
containing pictures the other print just one "note". The second report
prints just fine with the same picture.

Mike Shkolnik wrote:

Sylvain Lamothe · Guest

It looks similar to the problem i've been working on last week.
Is the picture a Bitmap or jpg?

Henrik Andersson" <lhg.andersson (AT) gmail (DOT) com> wrote in message
news:45d1d689$1 (AT) newsgroups (DOT) borland.com...

Henrik Andersson · Guest

It's jpg.

Quickreport support gave me an update, but I don't think it have solved
my problem.

Sylvain Lamothe wrote:

Sylvain Lamothe · Guest

Is your image stretched? If yes I have a correction..

"Henrik Andersson" <lhg.andersson (AT) gmail (DOT) com> wrote in message
news:45f03560$1 (AT) newsgroups (DOT) borland.com...