Dim myReport As New rptMainSpielstart  
                    Dim myRepViewer As New        _
                      CrystalDecisions.Windows.Forms.CrystalReportViewer  
                    Dim intAnzahlComboboxEinträge As Int16
                    Dim i As Int16
                    intAnzahlComboboxEinträge = Me.cmbStartberichte.Items.Count _
                      - 1
 
                    For i = 1 To intAnzahlComboboxEinträge Step 1
 
                        myReport.SetDataSource(BerichtsDataSet(i))
myReport.Refresh() 
                        myRepViewer.ReportSource = myReport                     _
                              myRepViewer.RefreshReport()
                        'Standarddrucker verwenden
                        Dim pdoc As Printing.PrintDocument = New _
                          Printing.PrintDocument
                        ' Select the printer.
                        myReport.PrintOptions.PrinterName = _
                          pdoc.PrinterSettings.PrinterName()
                        myReport.PrintToPrinter(1, False, 1, 1)
                    Next i

 Private Function BerichtsDataSet(ByVal AuswahlIndexCombobox As Int16) As _
   DataSet
 
 
        'DataSet erzeugen
        intComboBoxIndex2 = AuswahlIndexCombobox
        Dim oStartBerichte As New CStartBerichte
        Dim myBerichtsDataSet As New DataSet
        myBerichtsDataSet.Clear() 'DataSet leeren
        'Einlesen aller Tabellen ins DataSet
        'jeder Bericht bekommt seine eigene Datenquelle / DataTable zugewiesen
        'DataSet für den Hauptbericht
        myBerichtsDataSet.Tables.Add(oStartBerichte.dtHeader)        _
          myBerichtsDataSet.Tables.Add(oStartBerichte.dtSpielVerwaltung)        _
           myBerichtsDataSet.Tables.Add(oStartBerichte.dtBilanz)         _
          myBerichtsDataSet.Tables.Add(oStartBerichte.dtTeamInfoAlles)        _
          myBerichtsDataSet.Tables.Add(oStartBerichte.dtSzenario)        _
          myBerichtsDataSet.Tables.Add(oStartBerichte.dtSpielSub)         _
          myBerichtsDataSet.Tables.Add(oStartBerichte.dtRahmenDaten1)   
        Return myBerichtsDataSet
 
        'myBerichtsDataSet = Nothing
    End Function