Duplex druck in VBA Skript ansteuern
18.02.2008 17:33:30
Christian
Option Explicit
Dim oArgs, ex, oDatei
Set oArgs = WScript.Arguments
Set ex = WScript.CreateObject("Excel.Application")
With ex
'Excel nicht anzeigen
.Visible = False
'Laden des Dokuments
.Application.Workbooks.Open(oArgs.Item(0))
' Dokument komplett ausdrucken
Set oDatei = ex.Sheets
oDatei.PrintOut
' Excel beenden
.Quit
End With
Set oArgs = Nothing
Set ex = Nothing
Set oDatei = Nothing