Hallo liebe Leute,
habe folgenden Code:
'Private Sub test()
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Set WordApp = New Word.Application
If Not WordApp Is Nothing Then
WordApp.Visible = True
WordApp.Visible = False
Set WordDoc = WordApp.Documents.Open("D:\Dok4.doc")
WordDoc.PrintOut
Do Until WordApp.BackgroundPrintingStatus = 0
Application.Wait Now + TimeSerial(0, 0, 1)
Loop
WordDoc.Close
Set WordDoc = Nothing
WordApp.Quit
Set WordApp = Nothing
End If
der soll es mir ermöglichen ohne sichtbares Öffnen von Word und Visual Basic ein Worddokument zu drucken. Ich bekomme allerdings die Fehlermeldung "benutzerdefinierter Typ nicht definiert". Wahrscheinlich ist das keine große Sache, allerdings beschäftige ich mich noch nicht so lange mit VBA.
Muss ich dem Kind n Namen geben?
Gruß Ben