Visual Basic.NET - IMPRIMIR DATAVIEWGRID

Private Sub btnPrint_Click_1(sender As Object, e As EventArgs) Handles btnPrint.Click

    PrintDocument1.DefaultPageSettings.Landscape = True

    PrintPreviewDialog1.ShowDialog()

End Sub

Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

    Dim CenterAlign As New StringFormat

    CenterAlign.Alignment = StringAlignment.Center

    Dim RightAlign As New StringFormat

    CenterAlign.Alignment = StringAlignment.Far

    e.Graphics.DrawString("Operación", New Font("Arial", 16, FontStyle.Bold), Brushes.Black, New Point(25, 25))

    e.Graphics.DrawString("Fecha Inicial", New Font("Arial", 16, FontStyle.Bold), Brushes.Black, New Point(1000, 25), RightAlign)

    e.Graphics.DrawString("Fecha Final", New Font("Arial", 16, FontStyle.Bold), Brushes.Black, New Point(1000, 25), RightAlign)

    e.Graphics.DrawString("Estatus", New Font("Arial", 16, FontStyle.Bold), Brushes.Black, New Point(1000, 25), RightAlign)

    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 = e.MarginBounds.Top

        Do While mRow < .RowCount

            Dim row As DataGridViewRow = .Rows(mRow)

            Dim x As Single = e.MarginBounds.Left

            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)

                e.Graphics.DrawRectangle(Pens.Black, rc.Left, rc.Top, rc.Width, rc.Height)

                If (newpage) Then

                    e.Graphics.DrawString(DataGridView1.Columns(cell.ColumnIndex).HeaderText, .Font, Brushes.Black, rc, fmt)

                Else

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

                End If

                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 Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

    Dim TicketParaImpresora = New System.IO.StreamWriter("TicketAImprimar.Txt", False)

    Dim Linea As String = ""

    For C As Integer = 0 To DataGridView1.Columns.Count - 1

        Linea &= DataGridView1.Columns(C).HeaderText & "~"

    Next C

    TicketParaImpresora.WriteLine(Linea)

    For R As Integer = 0 To DataGridView1.Rows.Count - 2

        Linea = ""

        For C As Integer = 0 To DataGridView1.Columns.Count - 1

            Linea &= DataGridView1.Item(C, R).Value.ToString & "~"

        Next C

        TicketParaImpresora.WriteLine(Linea)

    Next R

    TicketParaImpresora.Close()

    MisImpreciones.NombreArchivoParaImpresora = "TicketAImprimar.Txt"

    MisImpreciones.ShowDialog()

End Sub

' Escribir las lineas de la tabla

For R As Integer = 0 To DataGridView1.RowCount - 2

    For C As Integer = 0 To DataGridView1.ColumnCount - 1

        Table.Cell(R + 2, C + 1).Range.Text = DataGridView1.Item(C, R).Value.ToString

    Next

    If R < DataGridView1.RowCount - 2 Then

        Table.Rows.Add()

    End If

Next

For R As Integer = 0 To DataGridView1.RowCount - 2

    For C As Integer = 0 To DataGridView1.ColumnCount - 1

        If DataGridView1.Item(C, R).GetType.Name = "DateTime" Then             'o "Date"  segun el tipo de la columna

           Table.Cell(R + 2, C + 1).Range.Text = DataGridView1.Item(C, R).Value.ToShortDateString

       Else

           Table.Cell(R + 2, C + 1).Range.Text = DataGridView1.Item(C, R).Value.ToString

        End If

    Next

' ... ... ...

For R As Integer = 0 To DataGridView1.RowCount - 2

    For C As Integer = 0 To DataGridView1.ColumnCount - 1

        If C = 1 OR C = 2 Then             ' 1 y 2 son los indicios de las columnas  "Fecha"

           Table.Cell(R + 2, C + 1).Range.Text = DataGridView1.Item(C, R).Value.ToShortDateString

       Else

           Table.Cell(R + 2, C + 1).Range.Text = DataGridView1.Item(C, R).Value.ToString

        End If

    Next

' ... ... ...

For R As Integer = 0 To DataGridView1.RowCount - 2

    For C As Integer = 0 To DataGridView1.ColumnCount - 1

        If C = 1 OR C = 2 Then             ' 1 y 2 son los indicios de las columnas  "Fecha"

           Table.Cell(R + 2, C + 1).Range.Text = DataGridView1.Item(C, R).Value.ToString.SubString(0,10)

       Else

           Table.Cell(R + 2, C + 1).Range.Text = DataGridView1.Item(C, R).Value.ToString

        End If

    Next

' ... ... ...

For R As Integer = 0 To DataGridView1.RowCount - 2

    For C As Integer = 0 To DataGridView1.ColumnCount - 1

        If DataGridView1.Item(C, R).GetType.Name = "DataGridView TextBoxCell" Then

           Table.Cell(R + 2, C + 1).Range.Text = DataGridView1.Item(C, R).Value.ToShortDateString

       Else

           Table.Cell(R + 2, C + 1).Range.Text = DataGridView1.Item(C, R).Value.ToString

        End If

    Next

For R As Integer = 0 To DataGridView1.RowCount - 2

    For C As Integer = 0 To DataGridView1.ColumnCount - 1

        If C = 1 OR C = 2 Then             ' 1 y 2 son los indicios de las columnas  "Fecha"

           Table.Cell(R + 2, C + 1).Range.Text = DataGridView1.Item(C, R).Value.ToString.SubString(0,10) ' 10 primeros caracteres son el fecha sin la hora

       Else   ' Si no es un indicio de una columna de fecha, escribir ToString y en este caso, si columna fecha es vacia, escribir columna 1 de la tabla Word en Bold  

           Table.Cell(R + 2, C + 1).Range.Text = DataGridView1.Item(C, R).Value.ToString

                Table.Cell(R + 2, 1).Select()  Cell de la actúale línea en columna 1

                If DataGridView1.Item(1, R).Value.ToString = String.Empty Then ' Supongo que en DGV, columna 1 es un Fecha y si es vacia ...

                    WAPP.Selection.Font.Bold = True

                Else

                    WAPP.Selection.Font.Bold = False

                End If

        End If

    Next

' ... ... ...

Table.Cell(R + 2, C + 1).Range.Text = CType(DataGridView1.Item(C, R).Value.ToString, DateTime).ToShortDateString

For R As Integer = 0 To DataGridView1.RowCount - 2

    For C As Integer = 0 To DataGridView1.ColumnCount - 1

        If C = 1 OR C = 2 Then             ' 1 y 2 son los indicios de las columnas  "Fecha"

            Try

                Table.Cell(R + 2, C + 1).Range.Text = DataGridView1.Item(C, R).Value.ToString.SubString(0,10) ' 10 primeros caracteres son el fecha sin la hora

            Catch

            End Try

       Else   ' Si no es un indicio de una columna de fecha, escribir ToString y en este caso, si columna fecha es vacia, escribir columna 1 de la tabla Word en Bold  

' ... ... ...