Word aus Excel öffnen drucken und schließen
22.01.2004 16:05:33
Steffen
allerdings soll das ganze versteckt passieren.
Ich habe im Moment noch das Problem das
Excel nicht ganz geschlossen wird und der Prozess erhalten
bleibt.
Sub Drucken()
Set xlApp = CreateObject("Excel.Application")
xlApp.Workbooks.Open ("C:\test.xls")
xlApp.Visible = False
Set xlWb = xlApp.ActiveWorkbook
Set xlSh = xlWb.ActiveSheet
ActiveSheet.PageSetup.PrintArea = "$A$1:$D$19"
xlApp.Workbooks.Quit
End Sub
Was mache ich falsch?
Anzeige