Problem mit zugriff auf Word

[Luda]

Hallo hoffentlich kann mir jemand von euch helfen. Das Folgende Poblem tritt nur unter office 97 auf. Wenn ich das file drucken möchte, kommt die Meldung:
Word druckt gerade. Wenn Sie Word jetzt beenden, werden alle anstehende Druckaufträge gelöscht.
Möchten Sie Word beenden? Ja/Nein


Private Sub PrintForm_Click()
'----------------------Aufruf von Word-----------------------------------------------
Set wordApp = CreateObject("word.application") '
wordApp.Documents.Open ReadOnly:=True, _
FileName:=App.Path & "\gutschein.dot"
wordApp.Visible = False 'sichtbarkeit von word

'----------------------in Word Txt-Felder schreiben----------------------------------

wordApp.Documents(1).Bookmarks.Item("txt1").Select
wordApp.Selection.Text = “Test”
.
.
.

wordApp.Application.PrintOut
wordApp.ActiveDocument.Saved = True
WordApp.Application.Quit
'----------------------ende word -------------------------------------


End Sub

 

[Retlaw]

Original geschrieben von Luda
wordApp.Application.PrintOut
wordApp.ActiveDocument.Saved = True
WordApp.Application.Quit
'----------------------ende word -------------------------------------
End Sub

Sieht so aus als ob Word den Druckvorgang im Hintergrund startet und wärenddessen versucht er die Anweisung zum Schließen von Word auszuführen, was zu dieser Meldung führt.