Hi,
versuch's mal damit:
Dim objExcel As Variant
Dim objSheet As Variant
Set objExcel = GetObject("", "Excel.Application")
...
Call objExcel.Workbooks.Open ("Dateiname.xls")
Set objSheet = objExcel.Workbooks(1).Worksheets(1)
Call objSheet.Printout
...
Axel
