23-08-18, 05:44 PM
بسم الله الرحمن الرحيم
يا أهل الخير عندي مشكلة بسيطة عليكم إن شاء الله
هذا الكود كتبه أحد الأفاضل لطباعة بيانات ال Datagridview يعمل بشكل جيد عندما تكون البيانات في صفحة واحدة وللأسف الشديد عندما تكون البيانات في إطار أكثر من صفحة تبدأ الطابعة في العد دون انتهاء ، فهل من فاعل خيرٍ يقوم بالتعديل على الكود حتى يقوم بطباعة أكثر من صفحة وجزاكم الله حيراً.
يا أهل الخير عندي مشكلة بسيطة عليكم إن شاء الله
هذا الكود كتبه أحد الأفاضل لطباعة بيانات ال Datagridview يعمل بشكل جيد عندما تكون البيانات في صفحة واحدة وللأسف الشديد عندما تكون البيانات في إطار أكثر من صفحة تبدأ الطابعة في العد دون انتهاء ، فهل من فاعل خيرٍ يقوم بالتعديل على الكود حتى يقوم بطباعة أكثر من صفحة وجزاكم الله حيراً.
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
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)
'Dim image As New Bitmap(filename:="hidd1.jpg")
'e.Graphics.DrawImage(image, 353, 30, 170, 150)
'e.Graphics.DrawString("Date:", Font, Brushes.Black, 50, 64)
'e.Graphics.DrawString(Today, Font, Brushes.Black, 92, 64)
'e.Graphics.DrawString("Date:", Font, Brushes.Black, 50, 80)
'e.Graphics.DrawString(DateString, Font, Brushes.Black, 92, 80)
'e.Graphics.DrawString("Hidd Consumer Society", Font, Brushes.Black, 340, 160)
'e.Graphics.DrawString("MM-DD-YYYY", Font1, Brushes.Black, 50, 99)
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
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
PrintPreviewDialog1.Document = PrintDocument1
PrintPreviewDialog1.ShowDialog()
End Sub
عن أبي هريرة - رضي الله عنه - قال: قال رسول الله - صلى الله عليه وسلم -: ((كلمتان خفيفتان على اللسان، ثقيلتان في الميزان، حبيبتان إلى الرحمن: سبحان الله وبحمده، سبحان الله العظيم))؛ متفق عليه.