Public Shared Sub mzs()
 
Dim i As Integer
Dim n As Integer
With clsForms.F1
' alles rücksetzen
For i = 0 To .DV1.Table.Rows.Count - 1
 .DV1.Table.Rows(i)("showinreport") = False
Next
' markierte Zeilen sammeln
For i = 0 To .DV1.Count - 1
If .DataGrid1.IsSelected(i) Then .DV1.Item(i)("showinreport") = True
  n += 1
   Next
End With
 ' Prüfung ob was markiert worden ist
 If n = 0 Then
MessageBox.Show("kein Datensatz zum drucken ausgewählt," & vbCrLf & _
 "Sie müssen erst einen Datensatz auswählen, bevor Sie auf drucken klicken", _
 "Info!", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Exit Sub
        Else
    clsForms.F6 = New Form6
    clsForms.F6.Show()
    clsForms.F3.Hide()
        End If
End Sub

Public Class drucken
 
Public Shared Sub mzs()
        Dim i As Integer
        Dim n As Integer
 
With clsForms.F1
 ' alles rücksetzen
For i = 0 To .Tab1BindingSource.Count - 1
    .Adr2006DataSet.Tab1.Rows(i)("showinreport") = False
  Next
 
' markierte Zeilen sammeln
For i = 0 To .Tab1BindingSource.Count - 1 '.DV1.Count - 1
 
If .DataGridView1.SelectedRows(i).Selected _
 Then .Tab1BindingSource.Item(i)("showinreport") = True
 
  n += 1
    Next
 End With
 
 ' Prüfung ob was markiert worden ist
 If n = 0 Then
MessageBox.Show("kein Datensatz zum drucken ausgewählt," & vbCrLf & _
 "Sie müssen erst einen Datensatz auswählen, bevor Sie auf drucken klicken", _
 "Info!", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Exit Sub
        Else
            clsForms.report = New Report
            clsForms.report.Show()
            clsForms.F1.Hide()
       End If
End Sub

VB@rchiv its the Best