I am using the RDC and Visual Basic 6. I have a .rpt created in the Crystal Designer with an ole picture object on the .rpt.
In the ReportDetailSection1_Format(ByVal pFormattingInfo as Object)
Dim thepicture as CRAXDRT.ICROleObject
Set thepicture = report.Sections "D").ReportObjects.Item("Picture1")
thepicture.SetOleLocation supp_pic
Note: supp_pic contains a path for this picture
My problem is this: Everything works good when printing as a report from Visual Basic, however, when adding the feature to allow the customer to view, THE PICTURE WILL NOT SHOW UP. I do not get any error messages, just no picture. My code is:
with report
.discardsaveddata
.parameterfields.getitembyname("ac").addcurrentvalue (ac)
end with
With CRViewer91
.enableprintbutton = true
.enabletoolbar = true
.viewreport
end with
In the ReportDetailSection1_Format(ByVal pFormattingInfo as Object)
Dim thepicture as CRAXDRT.ICROleObject
Set thepicture = report.Sections "D").ReportObjects.Item("Picture1")
thepicture.SetOleLocation supp_pic
Note: supp_pic contains a path for this picture
My problem is this: Everything works good when printing as a report from Visual Basic, however, when adding the feature to allow the customer to view, THE PICTURE WILL NOT SHOW UP. I do not get any error messages, just no picture. My code is:
with report
.discardsaveddata
.parameterfields.getitembyname("ac").addcurrentvalue (ac)
end with
With CRViewer91
.enableprintbutton = true
.enabletoolbar = true
.viewreport
end with