so langsam verzeifel ich. Folgender Code:
Sub WordDrucken(datei, psdatei)
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open(datei)
Application.ActivePrinter = "Acrobat Distiller auf Ne00:"
wrdApp.PrintOut filename:=datei, PrintToFile:=True, OutputFileName:=psdatei
' wrdDoc.PrintOut PrintToFile:=True, OutputFileName:=psdatei
Set wrdDoc = Nothing
Set wrdApp = Nothing
End Sub
Das Problem:
1. die so erzeugte Postscriptdatei hat immer die Grösse 0kB
2. der Wordprozess wird nicht geschlossen
3. im Einzelschrittdebugmodus bleibt er beim Öffnen der Worddatei hängen. Ohne Einzelschritt geht es.
Woran kann das liegen? Ich hab's auch schon mit .close und .quit versucht. Geht nicht. Viel mehr stört mich aber, dass die erzeugte Datei leer ist...
Viele Grüsse
Heiko