تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مشكلة طباعه بيانات من DataGridview
#1
لسلام عليكم ورحمه الله وبركاته



 الكود ولكن مشكله الكود انه يطبع صفحه واحدة فقط عند وجود اكثر من صفحه لايطبع يخرج لك عداد يعد الارقام الى مالى نهايه ولا يطبع 




وهذا هو الكود 


المهم اولا ضيف في الفورم اداة PrintPreviewDialog1 و اداة PrintDocument1


ثم الكود هذا في زر الطباعة
كود :
PrintPreviewDialog1.Document = PrintDocument1

PrintPreviewDialog1.ShowDialog()


والكود هنا PrintDocument1
كود :
Dim mRow As Integer = 0
      Dim newpage As Boolean = True
      With DataGridView1
          Dim fmt As StringFormat = New StringFormat(StringFormatFlags.LineLimit)
          fmt.LineAlignment = StringAlignment.Center
          fmt.Trimming = StringTrimming.EllipsisCharacter
          Dim y As Single = 230
          Do While mRow < .RowCount
              Dim row As DataGridViewRow = .Rows(mRow)
              Dim x As Single = 50
              Dim h As Single = 0
              For Each cell As DataGridViewCell In row.Cells
                  Dim rc As RectangleF = New RectangleF(x, y, cell.Size.Width, cell.Size.Height)
                  Dim rrc As RectangleF = New RectangleF(x, 210, cell.Size.Width, cell.Size.Height)
                  e.Graphics.DrawRectangle(Pens.Black, rc.Left, rc.Top, rc.Width, rc.Height)

                  e.Graphics.DrawString(DataGridView1.Columns(cell.ColumnIndex).HeaderText, .Font, Brushes.Black, rrc, fmt)
                  e.Graphics.DrawString(DataGridView1.Rows(cell.RowIndex).Cells(cell.ColumnIndex).FormattedValue.ToString(), .Font, Brushes.Black, rc, fmt)
                  'من هنا رسم كتابات و تفاصيل اخرى في القائمة
                  Dim Font As New System.Drawing.Font("arial ", 12)
                  Dim Font1 As New System.Drawing.Font("arial ", 10)
                  'e.Graphics.DrawImage(logoPic.Image, <>, {})
                  e.Graphics.DrawImage(logoPic.Image, 353, 30, 170, 150)
                  e.Graphics.DrawString("قائمة صيانة شركة رويال الرحماني", Font, Brushes.Red, 343, 174)
                  e.Graphics.DrawString(TimeOfDay, Font, Brushes.Black, 50, 64)
                  e.Graphics.DrawString(DateString, Font, Brushes.Black, 50, 80)
                  e.Graphics.DrawString("شركة رويال الرحماني", Font, Brushes.Black, 653, 64)
                  e.Graphics.DrawString("الاجهزة الكهربائية", Font, Brushes.Black, 661, 84)
                  e.Graphics.DrawString("MM-DD-YYYY", Font1, Brushes.Black, 50, 99)
                  e.Graphics.DrawString("اربيل - شارع كوية - مقابل جامع ابراهيم كردي / بأدارة رائد الرحماني الوكيل الوحيد لشركة رويال الرحماني في كوردستان العراق", Font, Brushes.DarkBlue, 100, 1010)
                  e.Graphics.DrawString("هاتف الصيانة : 07828342083", Font, Brushes.DarkBlue, 350, 1035)

                  x += rc.Width
                  h = Math.Max(h, rc.Height)
              Next
              newpage = False
              y += h
              mRow += 1
              If y + h > e.MarginBounds.Bottom Then
                  e.HasMorePages = True
                  mRow -= 1
                  newpage = True
                  Exit Sub
              End If
          Loop
          mRow = 0
      End With



نتيجة الكود عند ضغط زر الطباعة :




اتمني ان اجد حل لهذه المشكله لاني والله توقف المشروع بالكامل على هذه الخطوة
الرد }}}}
تم الشكر بواسطة:
#2
أخي الفاضل :

مرفق لك مثال للتجربة أتمنى أن تجد فيه الإفادة المطلوبة


الملفات المرفقة
.zip   print_and_preview.zip (الحجم : 10.85 ك ب / التحميلات : 102)
الرد }}}}
تم الشكر بواسطة: رومنس الشوق
#3
يعطيك العافيه يالغالي

اتمني لو تعدل على الكود اللي انا واضعه اكون شاكر لك
الرد }}}}
تم الشكر بواسطة:
#4
جزاك الله خيرا
سبحان الله والحمدلله ولا إله إلا الله والله أكبر

 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Angel

Instgram : up.2.dates
الرد }}}}
تم الشكر بواسطة:
#5
جرب هذه الاداة
http://vb4arb.com/vb/showthread.php?tid=21682
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف الاتصال بقاعدة بيانات SQLite أحمد إبراهيم سعد 3 88 24-09-17, 07:37 PM
آخر رد: Adrees
  Datagridview محمود صالح 2 47 24-09-17, 04:38 PM
آخر رد: محمود صالح
  مشكلة عند التعامل مع DevExpress آمل أن أجد لها حلًا أحمد إبراهيم سعد 10 211 23-09-17, 11:47 PM
آخر رد: أحمد إبراهيم سعد
  [VB.NET] مشكلة اثناء تنفيذ المشروع ظاهر علي 2 62 23-09-17, 10:56 AM
آخر رد: aliday03
  [VB.NET] مشكلة معايا فى الTEXTBOX MOSTAFA.KAMEL 12 164 22-09-17, 10:45 PM
آخر رد: MOSTAFA.KAMEL
  مشكلة في حفظ الصورة Fantastico 3 89 22-09-17, 04:46 PM
آخر رد: Fantastico
  مشكلة الفورم الشفاف محمود صالح 5 193 22-09-17, 12:47 AM
آخر رد: Fantastico
  طباعة datagridview محمود صالح 8 274 21-09-17, 06:40 PM
آخر رد: Rabeea Qbaha
  [سؤال] ما حل مشكلة تعارض Task مع Sleep؟ السندبااد 6 137 20-09-17, 02:49 PM
آخر رد: السندبااد
  مشكلة في قراءة قيمة من الريجستري سعود الشامان 12 191 19-09-17, 07:59 PM
آخر رد: سعود الشامان

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


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