05-02-18, 11:34 AM
عندي كود يطبع اعمدة الداتا جريد
وبية حلقة تكرارية لمعرفة الاعمدة بالداتا جريد المشكل اني لا اريد ظهور اخر 2 عمود بالاعمدة وقمت باخفائهم ولكن ظهرو عند الطباعة
حاولت التعديل علي الحلقة التكرارية ولكن ظهر خطا بقيمة المتغير المسندة الاعمدة
جزء الحلقة التكرارية الخاص بالمشكلة
ماحولتي 1- قمت باخفاء اخر 2 عمود ولا كن ظهرو في الطباعة
المحاولة 2- الثانية تعديل الحلقة وحدث خطا بالمتغير بكل اماكنة gridcol
التعديل بالخطا
وبية حلقة تكرارية لمعرفة الاعمدة بالداتا جريد المشكل اني لا اريد ظهور اخر 2 عمود بالاعمدة وقمت باخفائهم ولكن ظهرو عند الطباعة
حاولت التعديل علي الحلقة التكرارية ولكن ظهر خطا بقيمة المتغير المسندة الاعمدة
جزء الحلقة التكرارية الخاص بالمشكلة
كود :
Dim iLeftMargin As Integer
'Set the top margin
Dim iTopMargin As Integer = e.MarginBounds.Top
'Whether more pages have to print or not
Dim bMorePagesToPrint As Boolean = False
Dim iTmpWidth As Integer = 0
Dim nRowsPerPage As Int16
'For the first page to print set the cell width and header height
If bFirstPage = 1 Then
المشكلة هنا اسفل'
For Each GridCol As DataGridViewColumn In DataGridView1.Columns
iTmpWidth = CInt(Math.Floor(CDbl(CDbl(GridCol.Width) / CDbl(iTotalWidth) * CDbl(iTotalWidth) * (CDbl(e.MarginBounds.Width) / CDbl(iTotalWidth)))))
iHeaderHeight = CInt(e.Graphics.MeasureString(GridCol.HeaderText, New Font("Times New Roman", 10, FontStyle.Bold), iTmpWidth).Height) + 11
' Save width and height of headers
arrColumnLefts.Add(iLeftMargin - 1)
arrColumnWidths.Add(iTmpWidth - 1)
Next
End If
ماحولتي 1- قمت باخفاء اخر 2 عمود ولا كن ظهرو في الطباعة
المحاولة 2- الثانية تعديل الحلقة وحدث خطا بالمتغير بكل اماكنة gridcol
التعديل بالخطا
كود :
For GridCol =0 to DataGridView1.Columncount-2