Dear all
How display image(actual Size)  from pathname to Oleobject( in Crystal report (DSR) in VB6.0 . Now i can display images but after change images(image size <> oleobject size)images in report can't resize to actual size. Make resolution of image invalid

my code :
'=================================
Option Explicit
Dim Report As New CrystalReport3

Private Sub Command1_Click()
Dim Report As New CrystalReport3
  
    CommonDialog1.Action = 1
    Label1.Caption = CommonDialog1.FileName
    CRViewer91.EnableGroupTree = False
    CRViewer91.ReportSource = Report
    CRViewer91.ViewReport
    CRViewer91.Refresh
      
End Sub

Private Sub Form_Load()
    Me.WindowState = 2
    'CommonDialog1.Filter = "(*.bmp)|*.bmp|(*.xls)|*.xls|(*.doc)|*.doc|(*.jpg)|*.jpg"
    CommonDialog1.Filter = "(*.jpg)|*.jpg"
    Screen.MousePointer = vbHourglass
    CRViewer91.EnableGroupTree = False
    CRViewer91.ReportSource = Report
    CRViewer91.ViewReport
    Screen.MousePointer = vbDefault

End Sub

'=================================
'*** Crystal Report3(code) ***
Private Sub DetailSection1_Format(ByVal pFormattingInfo As Object)
    If Form4.Label1.Caption <> "" Then
        oleObj1.SetOleLocation Form4.Label1.Caption
    End If
End Sub
'=================================

please suggestion me.
Regards...


____________________________
TK

Basically you need to get new image's width and height, and set this size to CR picture object. Something like:

dim pic as stdpicture set pic=loadpicture("c:\test.bmp") oleObj1.SetOleLocation Form4.Label1.Caption oleObj1.width=pic.Width*567/1000 oleObj1.height=pic.height*567/1000

____________________________
If you find the answer helpful, please mark this topic as solved.

Goran. Thanks alot  

____________________________
TK

PLease mark your topic as solved...

____________________________
If you find the answer helpful, please mark this topic as solved.