habe es geschaft, dank dieses Forums ein Worddokument über Excel zu drucken. In Word habe ich eine Verknüpfung zu einer Excel Tabelle. Allerdings öffnet sich immer Visual Basic, bleibt geöffnet und Word fragt mich ob ich die Änderung in Word speichern möchte. Speichern möchte ich nicht.
mein Code:
Dim WordApp As Object
Dim WordDoc As Object
Set WordApp = CreateObject("Word.Application")
' WordApp.Visible = True
Set WordDoc = WordApp.Documents.Open("D:\Dok1.doc")
WordDoc.PrintOut
Do Until WordApp.BackgroundPrintingStatus = 0
Application.Wait Now + TimeSerial(0, 0, 1)
Loop
WordDoc.Saved = True
Set WordDoc = Nothing
Call WordApp.Quit
WordDoc.Close SaveChanges:=0
Wer weiß Rat?
Gruß Ben