تغییر نام فایل کریستال ریپورت

[as987498749874]

س دوستان

- چطور میشه نام فایل کریستال رو تغییر داد اسمی که موقع پرینت گرفتن در کادر فایل نیم میاد

مر30

[rezankh]

س دوستان

- چطور میشه نام فایل کریستال رو تغییر داد اسمی که موقع پرینت گرفتن در کادر فایل نیم میاد

مر30

منظورتون فيلد مخصوص File Path And Name هست؟ اگه منظورتون اينه كه خوب غير قابل تغييره مگر نام فايل گزارش رو تغيير بديد. البته مي‌تونيد بجاي گذاشتن اين فيلد يك فيلد فرمول خالي ايجاد كنيد و اسمشو مثلاً ّFileName بذاريد و سپس در وي بي هنگام دستور چاپ كد زير رو وارد كنيد:

          Dim crApp As New CRAXDRT.Application

          Dim crRept As New CRAXDRT.Report

          Dim CrDBTable As CRAXDRT.DatabaseTable

          Set crRept = crApp.OpenReport(App.Path & "\FileRep.rpt") 'reportfile

          crRept.FormulaFields.GetItemByName("FileName").Tex  t = "'" & Onvan.Combo1 & "'"



            For Each CrDBTable In crRept.Database.Tables

                    CrDBTable.Location = App.Path & "\Bank.mdb"

            Next



            Chap.CRViewer1.ReportSource = crRept

            Chap.CRViewer1.ViewReport

            Set crApp = Nothing

            Set crRept = Nothing



            

            Chap.Show

            'Chap.CRViewer1.Refresh

            Chap.Top = 0