'-------------------------
        'Datagridview print ------
        '-------------------------
        With DGV1
 
            Dim fmt As StringFormat = New StringFormat( _
              StringFormatFlags.LineLimit)
            fmt.LineAlignment = StringAlignment.Center
            fmt.Trimming = StringTrimming.EllipsisCharacter
 
 
            Do While mRow < .RowCount
 
                Dim row As DataGridViewRow = .Rows(mRow)
                Dim x As Single = e.MarginBounds.Left
                Dim h As Single = 0
                'Allpages += 1
                For Each cell As DataGridViewCell In row.Cells
 
                    Dim rc As RectangleF = New RectangleF(x, y, _
                      cell.Size.Width, cell.Size.Height)
 
                    If mRow Mod 2 = 0 Then
                        e.Graphics.FillRectangle(New SolidBrush(RowColor), rc)
                    Else
                        e.Graphics.FillRectangle(New SolidBrush( _
                          RowColorAlternate), rc)
                    End If
                    e.Graphics.DrawRectangle(Pens.Black, rc.Left, rc.Top, _
                      rc.Width, rc.Height + 5)
                    '----->
 
                    If (newpage) Then
                        e.Graphics.FillRectangle(New SolidBrush(HeaderColor), _
                          rc)
 
                        e.Graphics.DrawString(DGV1.Columns( _
                          cell.ColumnIndex).HeaderText, .Font, Brushes.Black, _
                          rc, fmt)
                    Else
 
 
                        e.Graphics.DrawString(DGV1.Rows(cell.RowIndex).Cells( _
                          cell.ColumnIndex).FormattedValue.ToString(), .Font, _
                          Brushes.Black, rc, fmt)
 
                    End If
 
 
                    If cell.ColumnIndex = 0 Or cell.ColumnIndex = 1 Or _
                      cell.ColumnIndex = 2 Then
                        fmt.Alignment = StringAlignment.Center
                    Else
                        fmt.Alignment = StringAlignment.Near
                    End If
 
                    x += rc.Width
                    h = Math.Max(h, rc.Height + 2)
                Next
 
                newpage = False
 
                y += h
                mRow += 1
 
 
 
                If y + h > e.MarginBounds.Bottom Then
 
                    e.Graphics.DrawString("Seite " & CurrenctPage.ToString, _
                    New Font("Times New Roman", 12), Brushes.Black, New Point( _
                    300, PD.DefaultPageSettings.Bounds.Height - 40))
 
                    CurrenctPage += 1
 
                    e.HasMorePages = True
                    PrintChart = False
                    mRow -= 1
                    newpage = True
                    Exit Sub
                End If
 
            Loop
 
            mRow = 0
        End With
 
        e.Graphics.DrawString("Seite " & CurrenctPage.ToString, _
                              New Font("Times New Roman", 12), Brushes.Black, _
                              New Point(300, _
                              PD.DefaultPageSettings.Bounds.Height - 40))
 
        PrintChart = True
        CurrenctPage = 1
        Allpages = 1
 
    End Sub