VBA, Word. Распечать и закрыть документ

Формулировка задачи:

Всем доброго!
Прошу помощи.. VBA, Word 2000
сделал документ с макросом print107, запускается файл через бантик:

/mPrint107

сам скрипт, методом научного тыка, проб и ошибок, получился такой

Sub print107()
    Documents. FileName:=, :=wdOpenFormatEncodedText, Encoding:=
     ActiveDocument.Styles(wdStyleNormal).Font
         .NameFarEast = .NameAscii 
            .NameAscii = 
         
        .NameFarEast = 
     
     ActiveDocument.PageSetup
        .Orientation = wdOrientLandscape
        .TopMargin = CentimetersToPoints(.)
        .BottomMargin = CentimetersToPoints(.)
        .LeftMargin = CentimetersToPoints(.)
        .RightMargin = CentimetersToPoints(.)
     
    Selection.InsertDateTime DateTimeFormat:=, _
    InsertAsField:=
    Selection.WholeStory
    Selection.Font. = 
    ActiveDocument.PrintOut
    ActiveWindow. SaveChanges:=wdDoNotSaveChanges
    Application.Quit ()
 Sub 

и вроде все ок, НО если убрать Application.Quit то остается открытым вновь созданное окно ворда (типо новый документ), а в указанном варианте не отправляет документ на печать.. Видимо слишком быстро закрывается.
В итоге надо чтоб и на печать успело отправить и закрыть все открытые в ходе работы (и после) макроса документы ворда
зы в качестве паузы добавлял после PrintOut

Dim PauseTime  Single
    Dim Start  Single
    Dim Finish  Single
    Dim TotalTime  Single
    PauseTime = 
    Start = Timer
    Do  Timer < Start + PauseTime
        DoEvents
    
    Finish = Timer
    TotalTime = Finish - Start 

но это не решило проблемы (

Решение задачи: «VBA, Word. Распечать и закрыть документ»

textual
                            Листинг программы 
                        
                            ActiveDocument.PrintOut False