Hallo unzwar habe ich das problem, das eine ein DataGridView auslesen lasse.Wenn dieser gedruckt werden soll würde es mehrere seiten beinhalten.Wie stellt man es an, das man wenn der untere zeilenrand erreicht ist, das er auf der nächsten seite weiterdrucken wird?
VB.NET-Quellcode
- For i = 0 To MimotProgram_DataGridView.RowCount - 1
- Dim columns_bpos As String ' String deklarieren
- Dim columns_identnummer As String ' String deklarieren
- Dim columns_bezeichnung As String ' String deklarieren
- Dim columns_status As String ' String deklarieren
- columns_bpos = MimotProgram_DataGridView.Rows(i).Cells(0).Value
- columns_identnummer = MimotProgram_DataGridView.Rows(i).Cells(1).Value
- columns_bezeichnung = MimotProgram_DataGridView.Rows(i).Cells(2).Value
- columns_status = MimotProgram_DataGridView.Rows(i).Cells(3).Tag
- If (columns_bezeichnung.Length() > 12) Then
- columns_bezeichnung = columns_bezeichnung.Substring(0, 12)
- columns_bezeichnung = columns_bezeichnung & "..."
- End If
- m = m + 20
- If m >= 1060 Then
- End If
- e.Graphics.DrawString(columns_bpos, New Font("Arial", 11, FontStyle.Regular), Brushes.Black, 63, m)
- e.Graphics.DrawString(columns_identnummer, New Font("Arial", 11, FontStyle.Regular), Brushes.Black, 135, m)
- e.Graphics.DrawString(columns_bezeichnung, New Font("Arial", 11, FontStyle.Regular), Brushes.Black, 225, m)
- If columns_status = "green" Then
- e.Graphics.DrawImage(My.Resources.green, 375.0F, m - 6, 25.0F, 25.0F) ' Grafik zeichnen
- Else
- e.Graphics.DrawImage(My.Resources.red, 375.0F, m - 6, 25.0F, 25.0F) ' Grafik zeichnen
- End If
- Next