تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال في الطباعة باستخدام data grid view
#1
Question 
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

        Da = New SqlDataAdapter("select * from TABLE_DATA where data like '%" & TextBox1.Text.Trim & "%'", Con)
        Da.Fill(Dt)
        DGV1.DataSource = Dt

        For i = 0 To Dt.Rows.Count + 1
            Select Case i
                Case 1

                    e.Graphics.DrawString(Dt.Rows(i)("name"), fn, Brushes.Black, 520, 249, sf)
                    e.Graphics.DrawString(Dt.Rows(i)("FAMILY"), fn, Brushes.Black, 480, 249, sf)
                    e.Graphics.DrawString(Dt.Rows(i)("DATA_BIRH"), fun, Brushes.Black, 480, 280, sf)
                    e.Graphics.DrawString(Dt.Rows(i)("GOVERM"), fun, Brushes.Black, 400, 280, sf)
                    e.Graphics.DrawString(Dt.Rows(i)("TITLE"), fun, Brushes.Black, 480, 301, sf)
                    e.Graphics.DrawString(Dt.Rows(i)("PHONEE"), fun, Brushes.Black, 400, 302, sf)
                    e.Graphics.DrawString(Dt.Rows(i)("NATIONALITG"), fun, Brushes.Black, 530, 328, sf)
                    e.Graphics.DrawString(Dt.Rows(i)("NUM_VERTIFI"), fun, Brushes.Black, 400, 329, sf)
                    e.Graphics.DrawString(Dt.Rows(i)("DATA_GRAN"), fun, Brushes.Black, 510, 359, sf)
                    e.Graphics.DrawString(Dt.Rows(i)("DATA_VALID"), fun, Brushes.Black, 400, 359.5, sf)
                    e.Graphics.DrawString(Dt.Rows(i)("ISSUED"), fun, Brushes.Black, 530, 378, sf)
                    e.Graphics.DrawString(Dt.Rows(i)("NOTES"), fun, Brushes.Black, 400, 380.5, sf)
                    e.Graphics.DrawString(Dt.Rows(i)("BLOODTYPE"), fun, Brushes.Black, 520, 405, sf)

                Case 2
                    e.Graphics.DrawString(Dt.Rows(i)("NAME"), fn, Brushes.Black, 520, 658, sf)
                    e.Graphics.DrawString(Dt.Rows(i)("FAMILY"), fn, Brushes.Black, 480, 658, sf)
                    e.Graphics.DrawString(Dt.Rows(i)("DATA_BIRH"), fun, Brushes.Black, 480, 719, sf)
                    e.Graphics.DrawString(Dt.Rows(i)("GOVERM"), fun, Brushes.Black, 400, 719, sf)
                    e.Graphics.DrawString(Dt.Rows(i)("TITLE"), fun, Brushes.Black, 480, 740, sf)
                    e.Graphics.DrawString(Dt.Rows(i)("PHONEE"), fun, Brushes.Black, 400, 740, sf)
                    e.Graphics.DrawString(Dt.Rows(i)("NATIONALITG"), fun, Brushes.Black, 530, 767, sf)
                    e.Graphics.DrawString(Dt.Rows(i)("NUM_VERTIFI"), fun, Brushes.Black, 400, 767, sf)
                    e.Graphics.DrawString(Dt.Rows(i)("DATA_GRAN"), fun, Brushes.Black, 510, 797, sf)
                    e.Graphics.DrawString(Dt.Rows(i)("DATA_VALID"), fun, Brushes.Black, 400, 797, sf)
                    e.Graphics.DrawString(Dt.Rows(i)("ISSUED"), fun, Brushes.Black, 530, 818, sf)
                    e.Graphics.DrawString(Dt.Rows(i)("NOTES"), fun, Brushes.Black, 400, 818, sf)
                    e.Graphics.DrawString(Dt.Rows(i)("BLOODTYPE"), fun, Brushes.Black, 520, 843, sf)
            End Select
        Next
        
    ٠٠٠٠٠٠٠٠٠٠٠٠٠٠٠٠٠٠٠٠٠٠٠٠٠
المشاكل التي تحدث
1_  لا استطيع الطباعة الا بتحديد رقم الصف 
2_ انا لدي اكثر من ٣٠ صف ولا اريد ان اكتب ٣٠ كود
3_ لا تنتقل للصفحة الثانية تلقائياً .
.......................
الخلاصة :
لدي بيانات اكثر من ٣٠ موظف
في الصفحة الورقية المطبوعة يوجد فيها بيانات صفين فقط من الداتا جيراد فيو اي لموظفين فقط ، وتلقائيا تنتقل لصفحة ثانية وتطبع الصفين الجدد بنفس كود الصفين الأول والثاني وهكذا إلا أن تنتهي البيانات في الداتا جيراد فيو .
مع التحقق بعدد الصفوف الواجب طباعتها
الرد
تم الشكر بواسطة: ابراهيم ايبو
#2
ضع مثال مصغر مع جدول المراد طباعة السجلات منه و صورة لتقرير عملته و باذن الله ستتم مساعدتك .
الرد
تم الشكر بواسطة: ابراهيم ايبو


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] سؤال في الصور حسن الجلب 2 70 , 01:10 AM
آخر رد: ابراهيم ايبو
  [سؤال] سؤال لو سمحت حسن الجلب 2 76 , 05:43 PM
آخر رد: ابو انس
Information سؤال عن Split alims 2 136 14-10-21, 01:31 PM
آخر رد: alims
  سؤال فني للمحترفين..أرجو المساعدة alziny1 4 180 11-10-21, 12:16 AM
آخر رد: alziny1
  [سؤال] سؤال في الكريستال ريبورت حسن الجلب 2 158 06-10-21, 02:49 PM
آخر رد: ابو انس
  السلام عليكم سؤال في معرفه عدد التكرار اليوم السابع 1 148 06-10-21, 01:00 AM
آخر رد: 3booody
  [سؤال] عندي سؤال في ليبل حسن الجلب 1 176 05-10-21, 11:59 PM
آخر رد: asmarsou
  [سؤال] سؤال في الكيبورد حسن الجلب 1 163 02-10-21, 12:14 PM
آخر رد: ابو انس
  [سؤال] عندي سؤال بس معلش طويل شويه حسن الجلب 1 165 02-10-21, 05:36 AM
آخر رد: معاند الحظ
  [سؤال] سؤال حسن الجلب 6 284 27-09-21, 08:38 PM
آخر رد: ابو انس

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


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