0

I want to edit the following code where I want

  1. Convert the print from left to right
    2 - Modify the contents of the print down the data grid so that the contents of the lily "We are happy to use your software" appears below the last row of the Ledra Grid provided that it moves to the print page if it was added to the first page, the contents of the page will move to the next page and if there are several pages for printing, Last print page

code

  Imports System.Drawing.Printing
    Module DataGridViewPrinter

        Public sa, sb, sc, sd As String
        Public DataGridViewToPrint As New DataGridView

        Public DefaultPageSettings As PageSettings = New PageSettings()

        Public WithEvents DocToPrint As New PrintDocument

        Private lPageNo As String = ""
        Private sPageNo As String = ""
        Private oStringFormat As StringFormat
        Private oStringFormatComboBox As StringFormat
        Private oButton As Button
        Private oCheckbox As CheckBox
        Private oComboBox As ComboBox
        Private nTotalWidth As Int16
        Private nRowPos As Int16
        Private NewPage As Boolean
        Private nPageNo As Int16
        Private Header As String
        Private FooterComment As String = ""

        Public Sub StartPrint(ByVal GridToPrint As DataGridView, ByVal PrintAsLandscape As Boolean, ByVal ShowPrintPreview As Boolean, ByVal HeaderToPrint As String, ByVal CommentToPrint As String)

            DataGridViewToPrint = GridToPrint
            Header = HeaderToPrint
            FooterComment = CommentToPrint

            'DataGridViewToPrint.Columns(2).Visible = False ' Use to hide a col. (index no.)

            ' Set up Default Page Settings
            DocToPrint.DefaultPageSettings.Landscape = PrintAsLandscape
            DocToPrint.DefaultPageSettings.Margins.Left = 25
            DocToPrint.DefaultPageSettings.Margins.Right = 75
            DocToPrint.DefaultPageSettings.Margins.Top = 25
            DocToPrint.DefaultPageSettings.Margins.Bottom = 75

            DocToPrint.OriginAtMargins = True ' takes margins into account

            If ShowPrintPreview = True Then

                Dim dlgPrintPreview As New PrintPreviewDialog

                dlgPrintPreview.ClientSize = New System.Drawing.Size(600, 600)
                dlgPrintPreview.Document = DocToPrint ' Previews print
                dlgPrintPreview.ShowDialog()

            Else

                '  Allow the user to choose a printer and specify other settings.
                Dim dlgPrint As New PrintDialog

                With dlgPrint
                    .AllowSelection = False
                    .ShowNetwork = False
                    .AllowCurrentPage = True
                    .AllowSomePages = True
                    .Document = DocToPrint
                End With

                '  If the user clicked OK, print the document.
                If dlgPrint.ShowDialog = Windows.Forms.DialogResult.OK Then
                    DocToPrint.Print()
                End If

            End If

        End Sub

        Public Sub DocToPrint_BeginPrint(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintEventArgs) Handles DocToPrint.BeginPrint

            oStringFormat = New StringFormat
            oStringFormat.Alignment = StringAlignment.Far
            oStringFormat.LineAlignment = StringAlignment.Center
            oStringFormat.Trimming = StringTrimming.EllipsisCharacter

            oStringFormatComboBox = New StringFormat
            oStringFormatComboBox.LineAlignment = StringAlignment.Center
            oStringFormatComboBox.FormatFlags = StringFormatFlags.NoWrap
            oStringFormatComboBox.Trimming = StringTrimming.EllipsisCharacter

            oButton = New Button
            oCheckbox = New CheckBox
            oComboBox = New ComboBox

            nTotalWidth = 0

            For i As Integer = DataGridViewToPrint.Columns.Count - 1 To 0 Step -1
                If DataGridViewToPrint.Columns(i).Visible = True Then ' Prints only Visible columns
                    nTotalWidth += DataGridViewToPrint.Columns(i).Width
                End If
            Next
            'For Each oColumn As DataGridViewColumn In DataGridViewToPrint.Columns
            '    If oColumn.Visible = True Then ' Prints only Visible columns
            '        nTotalWidth += oColumn.Width
            '    End If
            'Next

            nPageNo = 1
            NewPage = True
            nRowPos = 0

        End Sub
        Public Function GetRTLCoordinates(ByVal container As Rectangle, ByVal drawRectangle As Rectangle) _
        As Rectangle
            Return New Rectangle(container.Width - drawRectangle.Width - drawRectangle.X, _
                drawRectangle.Y, drawRectangle.Width, drawRectangle.Height)
        End Function

        Public Sub DocToPrint_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles DocToPrint.PrintPage

            Static oColumnLefts As New ArrayList
            Static oColumnWidths As New ArrayList
            Static oColumnTypes As New ArrayList
            Static nHeight As Int16

            Dim nWidth, i, nRowsPerPage As Int16
            Dim nTop As Int16 = e.MarginBounds.Top
            Dim nLeft As Int16 = e.MarginBounds.Left

            If nPageNo = 1 Then

                oColumnLefts.Clear()
                oColumnWidths.Clear()
                oColumnTypes.Clear()
                ' Draw Header
                nTop = e.MarginBounds.Top + 100
                e.Graphics.DrawString(sa, New Font("Times New Roman", 14, FontStyle.Bold), Brushes.Black, e.MarginBounds.Left + 35, e.MarginBounds.Top - e.Graphics.MeasureString(Header, New Font("Times New Roman", 14, FontStyle.Bold), e.MarginBounds.Width).Height + 2)
                e.Graphics.DrawRectangle(Pens.LightGray, 25, 1, 215, 25)
                e.Graphics.DrawString(sb, New Font("Times New Roman", 10, FontStyle.Regular), Brushes.Black, e.MarginBounds.Left + 60, e.MarginBounds.Top - e.Graphics.MeasureString(Header, New Font("Times New Roman", 10, FontStyle.Regular), e.MarginBounds.Width).Height + 30)
                e.Graphics.DrawString(sc, New Font("Times New Roman", 10, FontStyle.Regular), Brushes.Black, e.MarginBounds.Left + 120, e.MarginBounds.Top - e.Graphics.MeasureString(Header, New Font("Times New Roman", 10, FontStyle.Regular), e.MarginBounds.Width).Height + 65)
                e.Graphics.DrawString(sd, New Font("Times New Roman", 10, FontStyle.Regular), Brushes.Black, e.MarginBounds.Left + 120, e.MarginBounds.Top - e.Graphics.MeasureString(Header, New Font("Times New Roman", 10, FontStyle.Regular), e.MarginBounds.Width).Height + 90)
                e.Graphics.DrawString(Format(Date.Today), New Font("Times New Roman", 10, FontStyle.Regular), Brushes.Black, e.MarginBounds.Left + 5, e.MarginBounds.Top - e.Graphics.MeasureString(Header, New Font("Times New Roman", 10, FontStyle.Regular), e.MarginBounds.Width).Height + 65)
                e.Graphics.DrawString(Format(DateTime.Now.ToString("dddd  " & " tt" & "hh:mm")), New Font("Times New Roman", 10, FontStyle.Regular), Brushes.Black, e.MarginBounds.Left + 5, e.MarginBounds.Top - e.Graphics.MeasureString(Header, New Font("Times New Roman", 10, FontStyle.Regular), e.MarginBounds.Width).Height + 90)
                'DateTime.Now
                'Today.Now
                For Each oColumn As DataGridViewColumn In DataGridViewToPrint.Columns
                    If oColumn.Visible = True Then
                        nWidth = CType(Math.Floor(oColumn.Width / nTotalWidth * nTotalWidth * (e.MarginBounds.Width / nTotalWidth)), Int16)
                        nHeight = e.Graphics.MeasureString(oColumn.HeaderText, oColumn.InheritedStyle.Font, e.MarginBounds.Width).Height + 11

                        oColumnLefts.Add(nLeft)
                        oColumnWidths.Add(nWidth)
                        oColumnTypes.Add(oColumn.GetType)
                        nLeft += nWidth
                    End If
                Next

            End If

            Do While nRowPos < DataGridViewToPrint.Rows.Count - 1

                Dim oRow As DataGridViewRow = DataGridViewToPrint.Rows(nRowPos)

                If nTop + nHeight >= e.MarginBounds.Height + e.MarginBounds.Right Then

                    NewPage = True
                    nPageNo += 1
                    e.HasMorePages = True
                    Exit Sub

                Else

                    If NewPage Then

                        ' Draw Columns
                        '  nTop = e.MarginBounds.Top + 50

                        i = 0
                        For ii As Integer = DataGridViewToPrint.Columns.Count - 1 To 0 Step -1
                            If DataGridViewToPrint.Columns(ii).Visible = True Then
                                e.Graphics.FillRectangle(New SolidBrush(Drawing.Color.LightGray), New Rectangle(oColumnLefts(i), nTop, oColumnWidths(i), nHeight))
                                e.Graphics.DrawRectangle(Pens.LightGray, New Rectangle(oColumnLefts(i), nTop, oColumnWidths(i), nHeight))
                                e.Graphics.DrawString(DataGridViewToPrint.Columns(ii).HeaderText, DataGridViewToPrint.Columns(ii).InheritedStyle.Font, New SolidBrush(DataGridViewToPrint.Columns(ii).InheritedStyle.ForeColor), New RectangleF(oColumnLefts(i), nTop, oColumnWidths(i), nHeight), oStringFormat)

                                i += 1
                            End If

                        Next
                        NewPage = False

                    End If

                    nTop += nHeight
                    i = 0
                    For Each oCell As DataGridViewCell In oRow.Cells
                        If oCell.Visible = True Then
                            If oColumnTypes(i) Is GetType(DataGridViewTextBoxColumn) OrElse oColumnTypes(i) Is GetType(DataGridViewLinkColumn) Then

                                e.Graphics.DrawString(oCell.Value.ToString, oCell.InheritedStyle.Font, New SolidBrush(oCell.InheritedStyle.ForeColor), New RectangleF(oColumnLefts(i), nTop, oColumnWidths(i), nHeight), oStringFormat)

                            ElseIf oColumnTypes(i) Is GetType(DataGridViewButtonColumn) Then

                                oButton.Text = oCell.Value.ToString
                                oButton.Size = New Size(oColumnWidths(i), nHeight)
                                Dim oBitmap As New Bitmap(oButton.Width, oButton.Height)
                                oButton.DrawToBitmap(oBitmap, New Rectangle(0, 0, oBitmap.Width, oBitmap.Height))
                                e.Graphics.DrawImage(oBitmap, New Point(oColumnLefts(i), nTop))

                            ElseIf oColumnTypes(i) Is GetType(DataGridViewCheckBoxColumn) Then

                                oCheckbox.Size = New Size(14, 14)
                                oCheckbox.Checked = CType(oCell.Value, Boolean)
                                Dim oBitmap As New Bitmap(oColumnWidths(i), nHeight)
                                Dim oTempGraphics As Graphics = Graphics.FromImage(oBitmap)
                                oTempGraphics.FillRectangle(Brushes.White, New Rectangle(0, 0, oBitmap.Width, oBitmap.Height))
                                oCheckbox.DrawToBitmap(oBitmap, New Rectangle(CType((oBitmap.Width - oCheckbox.Width) / 2, Int32), CType((oBitmap.Height - oCheckbox.Height) / 2, Int32), oCheckbox.Width, oCheckbox.Height))
                                e.Graphics.DrawImage(oBitmap, New Point(oColumnLefts(i), nTop))

                            ElseIf oColumnTypes(i) Is GetType(DataGridViewComboBoxColumn) Then

                                oComboBox.Size = New Size(oColumnWidths(i), nHeight)
                                Dim oBitmap As New Bitmap(oComboBox.Width, oComboBox.Height)
                                oComboBox.DrawToBitmap(oBitmap, New Rectangle(0, 0, oBitmap.Width, oBitmap.Height))
                                e.Graphics.DrawImage(oBitmap, New Point(oColumnLefts(i), nTop))
                                e.Graphics.DrawString(oCell.Value.ToString, oCell.InheritedStyle.Font, New SolidBrush(oCell.InheritedStyle.ForeColor), New RectangleF(oColumnLefts(i) + 1, nTop, oColumnWidths(i) - 16, nHeight), oStringFormatComboBox)

                            ElseIf oColumnTypes(i) Is GetType(DataGridViewImageColumn) Then

                                Dim oCellSize As Rectangle = New Rectangle(oColumnLefts(i), nTop, oColumnWidths(i), nHeight)
                                Dim oImageSize As Size = CType(oCell.Value, Image).Size
                                e.Graphics.DrawImage(oCell.Value, New Rectangle(oColumnLefts(i) + CType(((oCellSize.Width - oImageSize.Width) / 2), Int32), nTop + CType(((oCellSize.Height - oImageSize.Height) / 2), Int32), CType(oCell.Value, Image).Width, CType(oCell.Value, Image).Height))

                            End If

                            e.Graphics.DrawRectangle(Pens.LightGray, New Rectangle(oColumnLefts(i), nTop, oColumnWidths(i), nHeight))

                            i += 1
                        End If
                    Next

                End If

                nRowPos += 1
                nRowsPerPage += 1

            Loop

            DrawFooter(e, nRowsPerPage)

            e.HasMorePages = False

        End Sub

        Public Sub DrawFooter(ByVal e As System.Drawing.Printing.PrintPageEventArgs, ByVal RowsPerPage As Int32)

            Dim sPageNo As String = nPageNo.ToString + " من "

            If nPageNo = "1" Then
                lPageNo = Math.Ceiling((DataGridViewToPrint.Rows.Count - 1) / RowsPerPage).ToString()
                sPageNo = lPageNo + nPageNo.ToString + " من "
                ' Right Align - User Name

            Else

                sPageNo = lPageNo + nPageNo.ToString + " من " '+ lPageNo
                ' Right Align - User Name
                e.Graphics.DrawString(FooterComment, DataGridViewToPrint.Font, Brushes.Black, e.MarginBounds.Left + (e.MarginBounds.Width - e.Graphics.MeasureString(FooterComment, DataGridViewToPrint.Font, e.MarginBounds.Width).Width), e.MarginBounds.Top + e.MarginBounds.Height + 30)

                ' Left Align - Date/Time
                e.Graphics.DrawString(Now.ToLongDateString + " " + Now.ToShortTimeString, DataGridViewToPrint.Font, Brushes.Black, e.MarginBounds.Left, e.MarginBounds.Top + e.MarginBounds.Height + 30)

                ' Center - Page No. Info
                e.Graphics.DrawString(sPageNo, DataGridViewToPrint.Font, Brushes.Black, e.MarginBounds.Left + (e.MarginBounds.Width - e.Graphics.MeasureString(sPageNo, DataGridViewToPrint.Font, e.MarginBounds.Width).Width) / 2, e.MarginBounds.Top + e.MarginBounds.Height + 30)

            End If
        End Sub

    End Module

Edited by monem_1: not complet

2
Contributors
1
Reply
10
Views
1 Month
Discussion Span
Last Post by rubberman
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.