• چاپ عکس بارکد در کریستال ریپورت
    #1
    Note 
    با سلام خدمت تمام اساتید محترم
    دیشب از شما عزیزان سئوالی در مورد بارکد پرسیدم که با همیاری شما عزیزان موقق به راه حل شدم و بسیار سپاسگزارم . حال مشکلی دیگر دارم که نمیتوانم عکس حاصل از بارکد را در انتهای فایل کریستال ریپورت که در حقیقت همان فاکتور میباشد را نمایش دهم . حال مجددا دست یاری به سوی شما دراز میکنم که کمکم کنید . خداوند از همه شما راضی باشد .
    ضمنا قطعه کد برنامه که به تولید چاپ فاکتور منجر میشود به قرار زیر است و حال میخواهم در همین قطعه کد دستوراتی اضافه کنم که به فایل 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 526 26-09-2014 ساعت 01:06
    آخرین ارسال: arnica
    Note آموزش کریستال ریپورت (Crystal Reprot) Daniel 0 926 29-09-2012 ساعت 13:43
    آخرین ارسال: Daniel
    Note سورس برنامه کار با رجیستری به زبان وبژوال بیسیک Daniel 0 979 19-09-2012 ساعت 17:55
    آخرین ارسال: Daniel
    Note کد حذف یک value از رجیستری SOFTAFZAR 0 550 03-07-2012 ساعت 21:05
    آخرین ارسال: SOFTAFZAR

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