• نمایش عکس در کریستال ریپورت
    #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 835 25-09-2014 ساعت 00:04
    آخرین ارسال: arnica
    Note آموزش کریستال ریپورت (Crystal Reprot) Daniel 0 941 29-09-2012 ساعت 13:43
    آخرین ارسال: Daniel
    Note سورس برنامه کار با رجیستری به زبان وبژوال بیسیک Daniel 0 994 19-09-2012 ساعت 17:55
    آخرین ارسال: Daniel
    Note کد حذف یک value از رجیستری SOFTAFZAR 0 564 03-07-2012 ساعت 21:05
    آخرین ارسال: SOFTAFZAR

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