Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
 
 
       If Me.cmbStartberichte.SelectedIndex = 0 Then
 
            'es wurde der Druck aller Berichte gewählt
            Select Case MsgBox("Sind Sie wirklich sicher, dass Sie " & _
              Me.cmbStartberichte.Items.Count - 1 & " Berichte ausdrucken" & _
              "möchten?", MsgBoxStyle.YesNo, "Alle Berichte drucken?")
                Case MsgBoxResult.No
                    Exit Sub
                Case MsgBoxResult.Yes
 
                    Dim myReport As New rptMainSpielstart   'Neue Instanz des 
                    ' erstellten Reports 
                    Dim myRepViewer As New _
                      CrystalDecisions.Windows.Forms.CrystalReportViewer   _
                      'Instanz eines ReportViewers
                    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))  'DataSource 
                        ' des Reports setzen -> Dataset
                        myReport.Refresh() 'Report aktualisieren
                        myRepViewer.ReportSource = myReport 'Dem Viewer, 
                        ' welcher nicht angezeigt wird den Report zuweisen
                        myRepViewer.RefreshReport() ' refreshen
 
                        myReport.PrintOptions.PrinterName = _
                          System.Drawing.Printing.PrinterSettings.InstalledPrin_
                          ters(0) 'Standarddrucker verwenden
                        myReport.PrintToPrinter(1, False, 1, 1)
                        'myRepViewer.PrintReport() 'und ab zum Drucker
                    Next i
                    MsgBox("Ihre Berichte wurden erfolgreich an den" & _
                      "Standarddrucker gesendet.", MsgBoxStyle.OKOnly, "Druck" & _
                      "erfolgreich")
                    Me.cmbStartberichte.SelectedIndex = -1
                    Exit Sub