Мне хотелось бы, чтобы вордовский документ не выходил на экран, а прямо шел на печать. Можно что-нибудь сделать и как?

Function WordDoc3()
Dim strPathDot As String
       strPathDot = CurrentProject.Path & "\T\1.dotx"
Dim strPathWord As String
       strPathWord = CurrentProject.Path & "\1.docx"
Dim wda As Object
       Set wda = CreateObject("Word.Application")
Dim wwd As Object
       Set wwd = GetObject(strPathDot)
       Set wda = wwd.Parent
wda.Visible = True
wwd.Bookmarks("histnum1").Select
wwd.Bookmarks("histnum2").Select
wwd.Bookmarks("histnum3").Select
With wda.ActiveDocument
    .Bookmarks("histnum1").Range.Text = Nz([patients_history_sia_subform_1].[Form]![histnum], " ")
    .Bookmarks("histnum2").Range.Text = Nz([patients_history_sia_subform_1].[Form]![histnum], " ")
    .Bookmarks("histnum3").Range.Text = Nz([patients_history_sia_subform_1].[Form]![histnum], " ")
.SaveAs strPathWord
.PrintOut True
End With
Set wwd = Nothing
Set wda = Nothing
End Function

http://www.sql.ru/forum/1148497/pryamaya-pechat-dokumenta-word