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

تفضل الكود بعد التعدل

الاخ عابر سبيل 2 ما قصر

فتحياتى له فيما يقدمه من مساعدة

تحياتى لكم

وتمنياتى لكم التوفيق