Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Printing images on a report
Message
 
To
05/01/2004 10:04:08
Cetin Basoz
Engineerica Inc.
Izmir, Turkey
General information
Forum:
Visual FoxPro
Category:
Reports & Report designer
Miscellaneous
Thread ID:
00863697
Message ID:
00863885
Views:
14
>>I have a client that has a need for printing images on a report. We havce a limited amount of space and unfortunately, the graphics are of varying sizes. We have set the image up to "size to fit" since that will keep the shape. However, if it dosen't fit properly, then there is a grey section for the area that doesn't have any image in it. I have tried many things to get rid of it including making a different application associated with the images. Nothing works.
>>
>>This is VFP 8 with SP1. I don't know if that is important, but figured I would throw it out there.
>
>I don't see the effect you describe. However I did it like this :
>-Created a report named myPicReport. I added an 'Picture/Activex Control' and sized to my taste. Dblclicked it and set :
>File : (myPicFile)
>Scale picture,retain shape
>-Saved and run little test.prg below :
>
>lnGif = ADir(aGIF,'bmps\*.GIF')
>lnJPG = ADir(aJPG,'bmps\*.JPG')
>lnBMP = ADir(aBMP,'bmps\*.BMP')
>Create Cursor myPics (myPicFile m)
>For ix=1 to Min(lnGIF,20) && I want 20 at most
>  Insert into myPics values (FullPath('bmps\'+aGIF[ix,1]))
>endfor
>For ix=1 to Min(lnJPG,20)
>  Insert into myPics values (FullPath('bmps\'+aJPG[ix,1]))
>endfor
>For ix=1 to Min(lnBMP,20)
>  Insert into myPics values (FullPath('bmps\'+aBMP[ix,1]))
>endfor
>Report Form myPicReport preview
>
Cetin,

It does not happen when previewing. Strictly when printing.
Rod Lewis
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform