تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] طباعة كل سجل في الجدول بصفحة
#1
السلام عليكم لدي جدول موظفين ومسجل بالبيانات
اسم الموظف والراتب
سؤال اريد ان اطبع هذه الجدول
كل سجل اي كل موظف في صفحة مع الحفاظ على نفس الهيدر الخاص بالطباعة هل ممكن ولكم الشكر
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم
ارجوا التوضيح
هل تريد كود طباعة الجدول مع طريقة فصل السجلات كل واحد في صفحة
او طريقة فصل السجلات كل واحد في صفحة فقط ؟
الرد }}}}
تم الشكر بواسطة:
#3
عن طريق التمرير الحقول الى الكريستال ريبورت
الرد }}}}
تم الشكر بواسطة:
#4
اذا ممكن مع العلم استخدم داتا جريد فيو
الرد }}}}
تم الشكر بواسطة:
#5
انا استعمل تقرير بحث فيظهر في داتا جريد ويوجد تيكست فوق داتا جريد اريد ان يظهر في كل صفحة مع سجل واحد من داتا جريد
الرد }}}}
تم الشكر بواسطة:
#6
ارفع مثالك .... ليتم مساعدتك
الرد }}}}
تم الشكر بواسطة:
#7
السلام عليكم
هذا مثال ماخوذ من مشاركة مشكور الاخ الكريم على المشروع
انا ضفت 2تكست
وهناك خيار لطباعة الكل او فقط من سجلات داتا جريد
كيف يمكن طباعة كل سجل في صفحة ووضع صورة للخلفية
هل ممكن
لو سمحتم شرح الطريقة


الملفات المرفقة
.rar   Print DataGridview.rar (الحجم : 110.76 ك ب / التحميلات : 110)
الرد }}}}
تم الشكر بواسطة:
#8
لم يتم الرد على سؤال اخونا محاسب يوسف

نتمنى ان يشاركنا الخبراء في هذا الموضوع للإستفاده
الرد }}}}
تم الشكر بواسطة:
#9
السلام عليكم
انظر الى البرنامج المرفق وعدل علية حسب المطلوب
كود :
If DataTable1DataGridView.RowCount = 0 Then
                MessageBox.Show("لا يوجد بيانات للطباعة")
                Return
            End If
يمكنك تعديل من 0 الى -1 اذا كانت الداتا جرد مغلقة(اي لا يسمح بتعديل عليها كالاضافة والتعديل)
كود :
dt = New DataTable
            dt.TableName = "grid"
            dt.Columns.Clear()
            Dim first_name As DataColumn = New DataColumn("name")
            first_name.DataType = System.Type.GetType("System.String")
            dt.Columns.Add(first_name)
            Dim second_name As DataColumn = New DataColumn("phone")
            second_name.DataType = System.Type.GetType("System.String")
            dt.Columns.Add(second_name)
            Dim dr As DataRow
            Dim i As Integer
            For i = 0 To Me.DataTable1DataGridView.RowCount - 2
                dr = dt.Rows.Add
                'ملاحظة يجب ان يكون اسم الكولوم مشابة للموجود في الداتا سيت
                dr.Item("name") = Me.DataTable1DataGridView.Item(0, i).Value.ToString
                dr.Item("phone") = Me.DataTable1DataGridView.Item(1, i).Value.ToString
            Next i
لانشاء جدول مشابه للموجود في الداتا سيت(في هذا المثال هناك فقط 2كولوم)
وجلب البيانات من الداتا جرد
كود :
Dim e1 As New CrystalReport1
            e1.SetDataSource(dt)
            print.CrystalReportViewer1.ReportSource = e1
            print.CrystalReportViewer1.RefreshReport()
            print.ShowDialog()
لارسال الجدول السابق الى الكرستال ريبورت
وفتح فورم الطباعة الذي يحتوي على كريستال فيور
اما بخصوص طباعة كل سجل بصفحة
موجودة في الكرستال ريبورت وتتم بترك 24 سم اذا كانت A4
لاحظ الكرستال ريبورت


الملفات المرفقة
.zip   New WinRAR ZIP archive.zip (الحجم : 177.6 ك ب / التحميلات : 93)
الرد }}}}
تم الشكر بواسطة: aftfm
#10
السلام عليكم ورحمة الله وبركاته

اخي العزيز yousef


إقتباس :اما بخصوص طباعة كل سجل بصفحة
موجودة في الكرستال ريبورت وتتم بترك 24 سم اذا كانت A4
لاحظ الكرستال ريبورت

هذا في حالة انني اريد طباعة فقط ما بداخل الداتا قريد

لكن لو كان لدي بضع البيانات في القريد والبعض الآخر في مربع نص أو اداة تاريخ أو Lable

وتظهر بيانات في القيد وباقي بيانات السجل في الادوات الأخرى للسجل الواحد

كيف تكون الطباعة كل سجل في صفحة
الرد }}}}
تم الشكر بواسطة:


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

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


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