Changing image width and height in CR8.5

Posted on 2008-10-07
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
Question by:giannisg5
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
LVL 101

Expert Comment

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.


Author Comment

ID: 22659691
How do you know which image box to display? Do you suppress the rest?
LVL 101

Expert Comment

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?

Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

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


Author Comment

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
LVL 101

Expert Comment

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.


Accepted Solution

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

EE Admin

Featured Post

[Webinar] Learn How Hackers Steal Your Credentials

Do You Know How Hackers Steal Your Credentials? Join us and Skyport Systems to learn how hackers steal your credentials and why Active Directory must be secure to stop them. Thursday, July 13, 2017 10:00 A.M. PDT

Question has a verified solution.

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

Crystal Reports: 5 Tests for Top Performance It is complete, your masterpiece report.  Not only does it meet your customer’s expectations, it blows them out the water, all they want is beautifully summarised and displayed in a myriad of ways. …
Hot fix for .Net Crystal Reports 10.2.3600.0 to fix problems with sub reports running on 64 bit operating systems ISSUE: Reports which contain subreports fail with error "Missing Parameter Value" DEPLOYMENT SERVER OS: Windows 2008 with 64 bi…
This video Micro Tutorial shows how to password-protect PDF files with free software. Many software products can do this, such as Adobe Acrobat (but not Adobe Reader), Nuance PaperPort, and Nuance Power PDF, but they are not free products. This vide…
Michael from AdRem Software outlines event notifications and Automatic Corrective Actions in network monitoring. Automatic Corrective Actions are scripts, which can automatically run upon discovery of a certain undesirable condition in your network.…

687 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