تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طباعة لابيل وداتا حرد معا CrystalReport1
#1
اريد تغير عنوان الصفحة عند الطباعة
حيث ان الايبل يحمل عنوان الصفحة (يتغير حسب اسم العميل)
و ان الصفحة تطبع الداتا جريد (تحتوي على بيانات عميل معين)و الايبل هو ام العميل
المشكلة ليست في طباعة الداتا جرد بل باللابل
قمت بطرح الموضوع للمرة الثانية وذلك لاضافة مرفق(اعتذر)
كود :
Public Class Form1
    Public dt As DataTable
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        dt = New DataTable
        dt.TableName = "grid"
        dt.Columns.Clear()
        add()
        Dim count As Integer = 0
        Dim dr As DataRow
        Dim i As Integer
        MsgBox(Me.Table1DataGridView.Rows.Count, MsgBoxStyle.Exclamation, "")
        For i = 0 To Me.Table1DataGridView.Rows.Count - 2

            dr = dt.Rows.Add
            dr.Item("num") = Me.Table1DataGridView.Item(0, i).Value.ToString
            dr.Item("name") = Me.Table1DataGridView.Item(1, i).Value.ToString
            dr.Item("phone") = Me.Table1DataGridView.Item(2, i).Value.ToString
            dr.Item("area") = Me.Table1DataGridView.Item(3, i).Value.ToString
            dr.Item("note") = Me.Table1DataGridView.Item(4, i).Value.ToString

        Next i
        Form2.print(dt)
        Form2.Show()
    End Sub
    Sub add()
        Dim num As DataColumn = New DataColumn("num")
        num.DataType = System.Type.GetType("System.String")
        dt.Columns.Add(num)
        Dim name As DataColumn = New DataColumn("name")
        name.DataType = System.Type.GetType("System.String")
        dt.Columns.Add(name)
        Dim phone As DataColumn = New DataColumn("phone")
        phone.DataType = System.Type.GetType("System.String")
        dt.Columns.Add(phone)
        Dim area As DataColumn = New DataColumn("area")
        area.DataType = System.Type.GetType("System.String")
        dt.Columns.Add(area)
        Dim note As DataColumn = New DataColumn("note")
        note.DataType = System.Type.GetType("System.String")
        dt.Columns.Add(note)
    End Sub
End Class

جزاكم الله خير


الملفات المرفقة
.rar   test.rar (الحجم : 190.29 ك ب / التحميلات : 44)
الرد }}}}
تم الشكر بواسطة:
#2
ببببببببببب
الرد }}}}
تم الشكر بواسطة:
#3
جربت هذا الكود لكنه لم يغير
كود :
Dim txt1 As TextObject
        txt1 = Me.CrystalReport11.ReportDefinition.ReportObjects("Text1")
        txt1.Text = Form1.Label1.Text
الرد }}}}
تم الشكر بواسطة:
#4

السلام عليكم ورحمة الله وبركاته





أنشء معامل
Parameter وسمه مثلا p1 ثم ضعه في المكان المناسب على التقرير Report1
لاحظ الترتيب فهو مهم:
1: تعريف r
2: الربط بالبيانات myDataSet
3: تعيين قيمه للمعامل p1
4: وأخيراً عرضه في مستعرض التقارير CrystalReportViewer1


PHP كود :
Dim r As New Report1
r
.SetDataSource(myDataSet)

r.SetParameterValue("p1""اسم العميل")

CrystalReportViewer1.ReportSource 





السلام عليكم ورحمة الله وبركاته
 
 
@@@ سامحوني، منقطع نهائياً @@@

 
الرد }}}}
تم الشكر بواسطة:
#5
@@أبورائد@@ كتب :
السلام عليكم ورحمة الله وبركاته





أنشء معامل
Parameter وسمه مثلا p1 ثم ضعه في المكان المناسب على التقرير Report1
لاحظ الترتيب فهو مهم:
1: تعريف r
2: الربط بالبيانات myDataSet
3: تعيين قيمه للمعامل p1
4: وأخيراً عرضه في مستعرض التقارير CrystalReportViewer1


PHP كود :
Dim r As New Report1
r
.SetDataSource(myDataSet)

r.SetParameterValue("p1""اسم العميل")

CrystalReportViewer1.ReportSource 





السلام عليكم ورحمة الله وبركاته

ممكن توضيح اكثر
PHP كود :
Public Function print(ByVal dt As DataTable)

        
Dim e1 As New CrystalReport1
        e1
.SetDataSource(dt)
        
CrystalReportViewer1.ReportSource e1
        Me
.CrystalReportViewer1.RefreshReport()
        Return 
Nothing
    End 
Function 
الreportsource يحمل بيانات الداتا جرد؟؟؟؟
لقد شارفت على الانتهاء من البرنامج ولن يتبقي سوى التقارير
ارجوا منك التعديل على الملف المرفق
اخي الكريم اشكرك على الرد
واسئلة الله في هذا الشهر المبارك ان يغفر لك ويدخلك الجنة
الرد }}}}
تم الشكر بواسطة:
#6
مشكور اخي الكريم لقد اعطيتني طرف الخيط
إقتباس : Public Function print(ByVal dt As DataTable)

Dim e1 As New CrystalReport1
Dim txt1 As TextObject
e1.SetDataSource(dt)
txt1 = e1.ReportDefinition.ReportObjects("text1")
txt1.Text = Form1.Label1.Text
CrystalReportViewer1.ReportSource = e1
Me.CrystalReportViewer1.RefreshReport()
Return Nothing
End Function

اللهم إنا نسألك زيادة في الدين

وبركة في العمر

وصحة في الجسد

وسعة في الرزق

وتوبة قبل الموت

وشهادة عند الموت

ومغفرة بعد الموت

وعفوا عند الحساب

وأمانا من العذاب

ونصيبا من الجنة

وارزقنا النظر إلى وجهك الكريم
الرد }}}}
تم الشكر بواسطة:
#7
مشكور اخي الكريم لقد اعطيتني طرف الخيط
إقتباس : Public Function print(ByVal dt As DataTable)

Dim e1 As New CrystalReport1
Dim txt1 As TextObject
e1.SetDataSource(dt)
txt1 = e1.ReportDefinition.ReportObjects("text1")
txt1.Text = Form1.Label1.Text
CrystalReportViewer1.ReportSource = e1
Me.CrystalReportViewer1.RefreshReport()
Return Nothing
End Function

اللهم إنا نسألك زيادة في الدين

وبركة في العمر

وصحة في الجسد

وسعة في الرزق

وتوبة قبل الموت

وشهادة عند الموت

ومغفرة بعد الموت

وعفوا عند الحساب

وأمانا من العذاب

ونصيبا من الجنة

وارزقنا النظر إلى وجهك الكريم
الرد }}}}
تم الشكر بواسطة:
#8

السلام عليكم ورحمة الله وبركاته




بناء على ما ذكرت يصبح كالتالي

أنشء معامل Parameter وسمه مثلا p1 ثم ضعه في المكان المناسب على التقرير CrystalReport1


PHP كود :
Public Sub print(ByVal dt As DataTable

    
Dim e1 As New CrystalReport1 
    e1
.SetDataSource(dt

    
e1.SetParameterValue("p1""اسم العميل"

    
CrystalReportViewer1.ReportSource e1 
End Sub 





السلام عليكم ورحمة الله وبركاته
 
 
@@@ سامحوني، منقطع نهائياً @@@

 
الرد }}}}
تم الشكر بواسطة:
#9
كيف نمرر الفيمة الموجودة في الليبل الي المعامل p1 بدلا من كلمة "اسم الغميل"
e1.SetParameterValue("P1", Form1.Label1.Text)

كتبتها هكذا اظهر عند التنفبذ مطلوب ادخال قيمة واطهر اسم المعامل كيف اتغلب علي ذلك
رغم تمرير الفيمة بالكود السابق
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كود طباعة فاتورة مبيعات على طابعة EPSON LQ-300+ /II ESC/P 2 سيد درويش 2 2,703 27-11-16, 12:14 PM
آخر رد: hglogtd
  [Acces2007] طباعة التقرير في صفحتين محمد خلف زكي 2 163 12-09-16, 12:25 AM
آخر رد: adel2012
  طباعة السجل الحالي علي كعبي 19 489 23-06-16, 02:11 AM
آخر رد: علي كعبي
  [سؤال] كيف يمكننى طباعة كل الفواتير مصممه بالكريستال ريبورت وvb.net? محمود بكرى 4 293 21-06-16, 11:46 PM
آخر رد: محمود بكرى
  طباعة التقرير من جدولين aftfm 19 461 09-06-16, 03:20 AM
آخر رد: حريف برمجة
  [سؤال] ارجو المساعدة رسالة خطاء عند طباعة التقرير من كريستال ريبورت 13 ahmed saleh 2 262 18-05-16, 03:52 AM
آخر رد: abdhassan
  طباعة BictureBox aftfm 0 369 21-09-15, 10:01 AM
آخر رد: aftfm
  [سؤال] طريقة طباعة تقرير ReportViewer مباشرة عبد الله 4 1,850 15-09-15, 01:56 AM
آخر رد: الطالب
Lightbulb [VB.NET] طباعة تقرير عن طريق تمرير البيانات من قاعدة بيانات مبرمج بلا حدود 35 4,149 28-08-15, 03:37 PM
آخر رد: مبرمج بلا حدود
  [VB.NET] معاينة طباعة تقرير تم تصميمه بداخل الاكسس Youssef1313 2 762 28-08-15, 12:43 PM
آخر رد: Youssef1313

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم