Word-Datei öffnen und direkt ausdrucken
18.04.2007 12:41:05
Holger.Waechter
wie ich eine Word-Datei aus Excel herraus öffne, weiss ich.
Wie bekomme ich es nun hin, das diese geöffnete Datei direkt ausgedruckt wird und danach wieder automatisch geschlossen wird ?
Gruss
Holger Wächter
P.S.: So öffne ich eine Word-Datei:
FileName = ActiveWorkbook.FullName
Längefilename = Len(FileName)
LookinFile = Left(FileName, Längefilename - 11) + "Bedienungsanleitung\"
StrPfad = LookinFile
Set MyShell = CreateObject("WScript.Shell")
strDateiName1 = Chr(34) & StrPfad & Stationstypen & ".doc.lnk" & Chr(34)
'*** Findet den Programmpfad des Programms für die zu öffnende Datei ***
strDateiName = StrPfad & "KoBuSys.doc"
Programmpfad = Chr(34) & GetLinkedApp(strDateiName) & Chr(34)
On Error GoTo Fehler
MyShell.Run ("" & Programmpfad & "" & strDateiName1 & "")
Set MyShell = Nothing
Cancel = True
Exit Sub