?
Solved

Changing image width and height in CR8.5

Posted on 2008-10-07
7
Medium Priority
?
558 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 101

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 101

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
On Demand Webinar: Networking for the Cloud Era

Ready to improve network connectivity? Watch this webinar to learn how SD-WANs and a one-click instant connect tool can boost provisions, deployment, and management of your cloud connection.

 

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 101

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

Enroll in August's Course of the Month

August's CompTIA IT Fundamentals course includes 19 hours of basic computer principle modules and prepares you for the certification exam. It's free for Premium Members, Team Accounts, and Qualified Experts!

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…
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…
If you’ve ever visited a web page and noticed a cool font that you really liked the look of, but couldn’t figure out which font it was so that you could use it for your own work, then this video is for you! In this Micro Tutorial, you'll learn yo…
In this video, Percona Solution Engineer Rick Golba discuss how (and why) you implement high availability in a database environment. To discuss how Percona Consulting can help with your design and architecture needs for your database and infrastr…

777 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