MEHR_2008
دوشنبه 25 شهریور 1387, 11:54 صبح
دوستان سلام
من میخوام از طریق وی بی 6 یک عکس را برای گزارش پاس کنم یعنی یک ole object در کریستال 10 تعریف کردم و میخوام از طریق برنامه location آن را برای عکس set کنم.ولی permissin denidse error میده
Set crRept = crApp.OpenReport(App.Path & "\report1.rpt") 'Report File
CrystalActiveXReportViewer1.ReportSource = crRept
CrystalActiveXReportViewer1.Refresh
Dim pic As CRAXDRT.OLEObject
pic.Suppress = True
("Set pic = crRept.Sections(2).ReportObjects.Item("picture1
("Set pic.FormattedPicture = LoadPicture("e:\vb project\pic.bmp
"pic.SetOleLocation App.Path & "\pic.bmp
ولی وقتی همین کارو واسه ساپرس عکس میکنم اجرا میشه و عمل میکنه نمی دونم مشکلم کجاست لطفا راهنمایی کنید.
من میخوام از طریق وی بی 6 یک عکس را برای گزارش پاس کنم یعنی یک ole object در کریستال 10 تعریف کردم و میخوام از طریق برنامه location آن را برای عکس set کنم.ولی permissin denidse error میده
Set crRept = crApp.OpenReport(App.Path & "\report1.rpt") 'Report File
CrystalActiveXReportViewer1.ReportSource = crRept
CrystalActiveXReportViewer1.Refresh
Dim pic As CRAXDRT.OLEObject
pic.Suppress = True
("Set pic = crRept.Sections(2).ReportObjects.Item("picture1
("Set pic.FormattedPicture = LoadPicture("e:\vb project\pic.bmp
"pic.SetOleLocation App.Path & "\pic.bmp
ولی وقتی همین کارو واسه ساپرس عکس میکنم اجرا میشه و عمل میکنه نمی دونم مشکلم کجاست لطفا راهنمایی کنید.