Solved

Changing image width and height in CR8.5

Posted on 2008-10-07
7
555 Views
Last Modified: 2008-11-15
I have upload in a MSSql server database all the images I need, I have connected the table with CR8.5 (ODBC) and I am displaying images on my report. However, all images are displayed with the original image width & height, resulting in stretching. is there anyway to set the width and height properties of the blob field while printing records?
thank you
0
Comment
Question by:giannisg5
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
  • 2
7 Comments
 
LVL 100

Expert Comment

by:mlmcc
ID: 22659645
None that we have found.

The only solution seems to be to put several images boxes on the screen of different sizes and show the one you need for the particular image.

mlmcc
0
 

Author Comment

by:giannisg5
ID: 22659691
How do you know which image box to display? Do you suppress the rest?
0
 
LVL 100

Expert Comment

by:mlmcc
ID: 22660302
I don't recall the exact solution or how the suppression was done.  

Yes, you use conditional suppression based on a field in the database.  Perhaps the image name?

mlmcc
0
Announcing the Most Valuable Experts of 2016

MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.

 

Author Comment

by:giannisg5
ID: 22667392
I used vb6 and the cr85 designer in order to determine the width and height of the image. I know on which section the OLE object is and which index it is, however I cannot find how to set the width and height. Can you help?

Private Sub sect_Format(ByVal pFormattingInfo As Object)
Dim bmp As StdPicture

With sect.ReportObjects
    Set .Item(2).FormattedPicture = LoadPicture(App.Path & "\111.jpg") 'default
    If FileExists(App.Path & "\" & .Item(1).Value & ".jpg") Then
        If .Item(1).Value <> "" Then
            Set bmp = LoadPicture(App.Path & "\" & .Item(1).Value & ".jpg")
            Set .Item(2).FormattedPicture = bmp
        End If
    End If
End With

End Sub

if the section i want to access is on a subreport, how to you reference that?
thank you
0
 
LVL 100

Expert Comment

by:mlmcc
ID: 22668878
You might try using the Format event of the report or section.

To get at a subreport you open the subreport as a report then reference it as a report.

mlmcc
0
 
LVL 1

Accepted Solution

by:
Computer101 earned 0 total points
ID: 22967529
PAQed with points refunded (250)

Computer101
EE Admin
0

Featured Post

Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

I hate sub reports and always consider them the last resort in any reporting solution.  The negative effect on performance and maintainability is just not worth the easy ride they give the report writer.  Nine times out of ten reporting requirements…
Hello everyone, Hope you find this as helpful as we did. We have on the company I work for an application built in Delphi V with Crystal Reports 8. We all know that Crystal & Delphi can be temperamental sometimes and the worst thing is, nearly…
The Email Laundry PDF encryption service allows companies to send confidential encrypted  emails to anybody. The PDF document can also contain attachments that are embedded in the encrypted PDF. The password is randomly generated by The Email Laundr…
This video shows how to use Hyena, from SystemTools Software, to update 100 user accounts from an external text file. View in 1080p for best video quality.

732 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question