Private Excl As New Excel.Application
 
Public Sub AngebotDDrucken(boolVorschau As Boolean) 
      lvarPfad = "T:EDVExcelAngebot.xls" 
      If Not boolVorschau Then 'Wenn Vorschau nicht gefordert ist 
            .PrintOut Copies:=1 'dann sofort drucken, funktioniert auch prima 
      Else 
             Excl.Workbooks.Open lvarPfad
             Excl.Visible = True 
       End If 
End Sub