[سؤال] اظهار DataGridView1 من اليمين الى اليسار خلال امر الطباعة

كود :

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)

            Dim sf As New StringFormat



            sf.Alignment = StringAlignment.Center

            sf.LineAlignment = StringAlignment.Center

            sf.FormatFlags = sf.FormatFlags Or StringFormatFlags.DirectionRightToLeft



            sf.LineAlignment = StringAlignment.Center

            sf.Trimming = StringTrimming.EllipsisCharacter

            Dim y As Single = 230

            Do While mRow < .RowCount

                Dim row As DataGridViewRow = .Rows(mRow)

                Dim x As Single = 25

                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, sf)

                    e.Graphics.DrawString(DataGridView1.Rows(cell.RowIndex).Cells(cell.ColumnIndex).FormattedValue.ToString(), .Font, Brushes.Black, rc, sf)

                    '''''------------------CONTENU PAGE **** المحتوى الرسمي للصفحة---------------------

                    'الخطوط

                    Dim Font As New System.Drawing.Font("Sakkal Majalla ", 16, FontStyle.Bold)

                    Dim Font1 As New System.Drawing.Font("Sakkal Majalla ", 12, FontStyle.Bold)

                    e.Graphics.DrawString("قاعدة البيانات لمختلف الشواهد لإدارية المسملة", Font, Brushes.Red, 300, 100)

                    e.Graphics.DrawString(TimeOfDay, Font1, Brushes.Black, 25, 44)

                    e.Graphics.DrawString(DateString, Font1, Brushes.Black, 25, 60)

                    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

PHP كود :

For Each cell As DataGridViewCell In row.Cells
    Dim w = e.PageBounds.Width - cell.Size.Width
    Dim rc As RectangleF = New RectangleF(w - x, y, cell.Size.Width, cell.Size.Height)
    Dim rrc As RectangleF = New RectangleF(w - x, 210, cell.Size.Width, cell.Size.Height)
    e.Graphics.DrawRectangle(Pens.Black, rc.Left, rc.Top, rc.Width, rc.Height)