Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Printing images on a report
Message
 
À
05/01/2004 10:04:08
Cetin Basoz
Engineerica Inc.
Izmir, Turquie
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de rapports & Rapports
Divers
Thread ID:
00863697
Message ID:
00863885
Vues:
12
>>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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform