Word-Dokument aus EXCEL drucken
10.10.2003 16:43:59
Peter Stähler
aus einer EXCEL-Tabelle heraus möchte über klick auf einen Button ein Word-Dokument drucken. Eine Interaktion mit dem Dokument ist nicht erforderlich. Einfach nur Drucken.
Ich versuche das mit dem folgenden Code:
Private Sub btnZentrale6_Click()
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Application.ScreenUpdating = False
Set WordApp = CreateObject("Word.Application")
Set WordDoc = WordApp.Documents.Open("F:\PRIVAT\ToPrint.doc")
WordDoc.PrintOut Filename = "F:\PRIVAT\ToPrint.doc"
WordDoc.Saved = True
Set WordDoc = Nothing
Call WordApp.Quit
Application.ScreenUpdating = True
End Sub
Bei der Ausführung hat mir EXCEL auf die Finger und erzählt mir, daß diese Datei durch den Benutzer '' gesperrt ist und ob ich sie schreibgeschützt öffnen will oder eine Benachrichtigung senden.
Kennt jemand das Problem und kann mir helfen? Wäre super.
Vielen Dank im Voraus für Eure Hilfe und ein schönes Wochenende.
Peter Stähler