Drucken
tonihome0
wer kann mir Helfen?
es erscheint immer der hinweis kann Document nicht finden.
Was ist falsch.
Es soll über einen Button aus Excel heraus eine Worddatei ausgedruckt werden.
Ich brauche es für Excel 2003 und 2007
Sub Brief()
Dim wrdApp As Object
Dim wrdDoc As Object
Dim sFile As String
sFile = "C:\User\Fred\Haus\Ordner\Brief.doc"
If Dir(sFile) = "" Then
Beep
MsgBox "Worddokument wurde nicht gefunden!"
Else
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open(sFile)
wrdDoc.PrintOut
Application.Wait Now + TimeSerial(0, 0, 5)
wrdDoc.Close False
wrdApp.Quit
Set wrdDoc = Nothing
Set wrdApp = Nothing
End If
End Sub
mfg.toni
Anzeige