"c:\Program Files\Microsoft Office\Office10\WINWORD.EXE" /mPrint107 "d:\Work\Temp\print107.doc" 

Sub print107()
    Documents.Open FileName:="D:\Work\Temp\105-107.TXT", Format:=wdOpenFormatEncodedText, Encoding:= 866 
    With ActiveDocument.Styles(wdStyleNormal).Font
        If .NameFarEast = .NameAscii Then
            .NameAscii = ""
        End If
        .NameFarEast = ""
    End With
    With ActiveDocument.PageSetup
        .Orientation = wdOrientLandscape
        .TopMargin = CentimetersToPoints( 1 . 3 )
        .BottomMargin = CentimetersToPoints( 1 . 3 )
        .LeftMargin = CentimetersToPoints( 1 . 5 )
        .RightMargin = CentimetersToPoints( 1 . 5 )
    End With
    Selection.InsertDateTime DateTimeFormat:="dd MMMM yyyy", _
    InsertAsField:=True
    Selection.WholeStory
    Selection.Font.Size =  8 
    ActiveDocument.PrintOut
    ActiveWindow.Close SaveChanges:=wdDoNotSaveChanges
    Application.Quit ( 0 )
End Sub 

    Dim PauseTime As Single
    Dim Start As Single
    Dim Finish As Single
    Dim TotalTime As Single
    PauseTime =  2 
    Start = Timer
    Do While Timer < Start + PauseTime
        DoEvents
    Loop
    Finish = Timer
    TotalTime = Finish - Start 

ActiveDocument.PrintOut False