Public Sub Drucken()
 
 
        Dim text1 As String = tbAuftrag1.Text
        Dim text2 As String = tbAuftrag2.Text
 
        Dim Druckmethode As Integer
        Druckmethode = 1 'Variable dient nur zum Probieren der einzelnen 
        ' Druckversuche
 
 
        Dim Printen_Drucken As Object
        Printen_Drucken = CreateObject("Excel.Application")
 
        Try
            Printen_Drucken.Workbooks.Open(Filename:=Pfadvm5 & text1 & "_" & _
              text2 & ".xls") 'File für die zuvor erstellte Datei
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
 
        If cbPrintPos1.Checked = True Then
            Try
                Printen_Drucken.Sheets("Pos1").Visible = True
            Catch ex As Exception
            End Try
            Printen_Drucken.Sheets("Pos1").Select()
            If Druckmethode = 1 Then
                Printen_Drucken.ExecuteExcel4Macro("PRINT(" & _
                  "1,,,1,,,,,,,,2,,,TRUE,,FALSE)")
            End If
            If Druckmethode = 2 Then
                Printen_Drucken.Sheets.PrintOut(Copies:=1, Collate:=True)
            End If
 
        End If
 
        If cbPrintPos2.Checked = True Then
            Try
                Printen_Drucken.Sheets("Pos2").Visible = True
            Catch ex As Exception
            End Try
            Printen_Drucken.Sheets("Pos2").Select()
            If Druckmethode = 1 Then
                Printen_Drucken.ExecuteExcel4Macro("PRINT(" & _
                  "1,,,1,,,,,,,,2,,,TRUE,,FALSE)")
            End If
            If Druckmethode = 2 Then
                Printen_Drucken.Sheets.PrintOut(Copies:=1, Collate:=True)
            End If
        End If
 
 
        Try
            Printen_Drucken.ActiveWindow.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
 
    End Sub