Drucken Text-Datei über Word aus Excel
28.06.2004 08:21:15
franz
Ein Problem:
Mit folgendem Makro will ich mit VBA über
Word eine Textdatei drucken.
Geht nicht, was mache ich falsch.
Option Explicit
Sub test()
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Set wrdApp = CreateObject("Word.Application")
Set wrdApp = wrdApp.Documents.Open("r:\Test.txt")
Set wrdApp = wrdApp.Documents.Open("r:\Test.txt")
wrdDoc.PrintOut
Application.Wait Now + TimeSerial(0, 0, 5)
wrdApp.Quit
Set wrdDoc = Nothing
Set wrdApp = Nothing
End Sub
Gruss
franz
Anzeige