تقييم الموضوع :
  • 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 ك ب / التحميلات : 122)
الرد
تم الشكر بواسطة: رومنس الشوق
#3
يعطيك العافيه يالغالي

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

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

Instgram : up.2.dates
الرد
تم الشكر بواسطة:
#5
جرب هذه الاداة
http://vb4arb.com/vb/showthread.php?tid=21682
صلى الله على نبينا محمد
اخيكم / محمود صالح
  قال الزهري رحمه الله  
 مــا عُـــبـِد الله بشئ أفضل من العلم 
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Rainbow [سؤال] مشكلة في الطباعة اسامه الهرماوي 0 16 منذ 3 ساعة مضت
آخر رد: اسامه الهرماوي
  مشكلة فى كود الجمع حقل new_programer 0 21 اليوم, 04:34 AM
آخر رد: new_programer
  [سؤال] طلب مساعدة vb.net: إرسال بيانات من داتاقريدفيو الى نمودج وورد hamzatalbi 3 191 أمس, 10:26 AM
آخر رد: dell
  مشكلة فى الفيجوال ستوديو salah mansour 3 56 أمس, 04:37 AM
آخر رد: elgokr
  عرض معلومات ف DatagridView Emam emam 7 191 17-12-18, 09:01 PM
آخر رد: elgokr
  الاخوة الذين يواجهون مشكلة الحفظ في قاعدة بيانات اكسسس abo ragab 2 157 17-12-18, 08:33 PM
آخر رد: elgokr
  جمع الكمية لصنف واحد داخل datagridview atef_020 23 540 17-12-18, 03:39 PM
آخر رد: حريف برمجة
  مشكلة صغير ب geckofx 60 الطابعة sva 5 107 14-12-18, 06:04 PM
آخر رد: elgokr
  مشكلة اتصال kaiser3D 1 44 14-12-18, 05:41 PM
آخر رد: elgokr
  مشكلة الفورم فى الخلف new_programer 3 60 11-12-18, 05:58 AM
آخر رد: rmnr

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


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