نمایش عکس در کریستال ریپورت
#1
Note 
با سلام خدمت تمام اساتید محترم
خواهش میکنم کمک کنید:blushsmiley:
دیشب از شما عزیزان سئوالی در مورد بارکد پرسیدم که با همیاری شما عزیزان موقق به راه حل شدم و بسیار سپاسگزارم . حال مشکلی دیگر دارم که نمیتوانم عکس حاصل از بارکد را در انتهای فایل کریستال ریپورت که در حقیقت همان فاکتور میباشد را نمایش دهم . حال مجددا دست یاری به سوی شما دراز میکنم که کمکم کنید . خداوند از همه شما راضی باشد .
ضمنا قطعه کد برنامه که به تولید چاپ فاکتور منجر میشود به قرار زیر است و حال میخواهم در همین قطعه کد دستوراتی اضافه کنم که به فایل bmp که تصویر بارکد را دارد و از طرفی در یک درایو دیگر و به آدرس F:\Packing قرار دارد کارسازی لازم انجام شود و در انتهای فاکتور چاپ شود . از همه شما اساتید متقابلا تشکر میکنم .
Private Sub Command1_Click()
Dim crAPP As New CRAXDRT.Application
Dim crRept As New CRAXDRT.Report
Set crRept = crAPP.OpenReport(App.Path & "\report5.Rpt") 'Report File
'Set crRept = crAPP.OpenReport("e:\packing1\report5.rpt")
CrystalActiveXReportViewer1.ReportSource = crRept
crRept.FormulaFields.GetItemByName("tar1").Text = "'" & Text1 & "'"
crRept.FormulaFields.GetItemByName("fc1").Text = " '" & Text2 & "'"
crRept.FormulaFields.GetItemByName("gir1").Text = " '" & Text3 & "'"
crRept.FormulaFields.GetItemByName("mag1").Text = " '" & Text4 & "'"
crRept.FormulaFields.GetItemByName("kar1").Text = " '" & Text5 & "'"
crRept.FormulaFields.GetItemByName("sp1").Text = " '" & Text12 & "'"
crRept.FormulaFields.GetItemByName("jt1").Text = " '" & Text10 & "'"
crRept.FormulaFields.GetItemByName("jt2").Text = " '" & Text11 & "'"
crRept.FormulaFields.GetItemByName("jt3").Text = " '" & Text9 & "'"
crRept.FormulaFields.GetItemByName("bast").Text = "'" & Text13 & "'"
crRept.FormulaFields.GetItemByName("sb1").Text = "'" & Text14 & "'"
crRept.RecordSelectionFormula = "{frosh.shf}='" & Text2 & "'"
CrystalActiveXReportViewer1.ViewReport
Set crAPP = Nothing
Set crRept = Nothing
End Sub

Private Sub Form_Activate()
Command1_Click
End Sub

Private Sub Form_Unload(Cancel As Integer)
Unload Me
End Sub

پاسخ
ایجاد موضوع جدید   پاسخ به موضوع  

موضوعات مرتبط با این موضوع...
موضوع نویسنده پاسخ بازدید آخرین ارسال
Note چاپ عکس بارکد در کریستال ریپورت arnica 0 628 25-09-2014 ساعت 00:04
آخرین ارسال: arnica
Note آموزش کریستال ریپورت (Crystal Reprot) Daniel 0 581 29-09-2012 ساعت 13:43
آخرین ارسال: Daniel
Note سورس برنامه کار با رجیستری به زبان وبژوال بیسیک Daniel 0 886 19-09-2012 ساعت 17:55
آخرین ارسال: Daniel
Note کد حذف یک value از رجیستری SOFTAFZAR 0 470 03-07-2012 ساعت 21:05
آخرین ارسال: SOFTAFZAR

کاربرانِ درحال بازدید از این موضوع:   1 مهمان