loWord = CreateObject("Word.Application")
	
WITH loWord
    SELECT docs
    lcFileName = "c:\1111111.htm"
    IF FILE(lcFileName)
        WAIT "Печать документа..." WINDOW NOWAIT
        .Documents.Open(lcFileName)
        *-Установим параметры страницы
        *.ActiveDocument.PageSetup.LeftMargin =  0 
       
    ENDIF	    
    * Закрыть сеанс Word
    .Quit( 0 )
ENDWITH		
 		

Sub печать_нтм()
''печать_нтм для печати *.НТМ из текущего каталога
''-нажми  Alt+F8
''-выполни макрос  печать_нтм
''-можно настроить макрос на конкретный принтер

Dim s1, s2, j1, j2
s1 = UCase(Word.ActiveDocument.FullName)
j1 = InStr(s1, "\htm_pech.doc")
s2 = Mid(s1,  1 , j1)
s1 = Dir(s2 & "*.htm*")
Do While Len(s1) >  0 
     Documents.Open FileName:=s2 & s1, ConfirmConversions:=False, _
     ReadOnly:=False, AddToRecentFiles:=False, _
     PasswordDocument:="", PasswordTemplate:="", _
     Revert:=False, WritePasswordDocument:="", _
     WritePasswordTemplate:="", _
     Format:=wdOpenFormatAuto, XMLTransform:=""
    If ActiveWindow.View.SplitSpecial = wdPaneNone Then
        ActiveWindow.ActivePane.View.Type = wdPrintView
    Else
        ActiveWindow.View.Type = wdPrintView
    End If
    With Selection.PageSetup
        .LineNumbering.Active = False
        .Orientation = wdOrientPortrait
        .TopMargin = CentimetersToPoints( 1 )
        .BottomMargin = CentimetersToPoints( 1 )
        .LeftMargin = CentimetersToPoints( 2 )
        .RightMargin = CentimetersToPoints( 1 )
        .Gutter = CentimetersToPoints( 0 )
        .HeaderDistance = CentimetersToPoints( 1 . 25 )
        .FooterDistance = CentimetersToPoints( 1 . 25 )
        .PageWidth = CentimetersToPoints( 21 )
        .PageHeight = CentimetersToPoints( 29 . 7 )
        .FirstPageTray = wdPrinterDefaultBin
        .OtherPagesTray = wdPrinterDefaultBin
        .SectionStart = wdSectionNewPage
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .VerticalAlignment = wdAlignVerticalTop
        .SuppressEndnotes = False
        .MirrorMargins = False
        .TwoPagesOnOne = False
        .BookFoldPrinting = False
        .BookFoldRevPrinting = False
        .BookFoldPrintingSheets =  1 
        .GutterPos = wdGutterPosLeft
    End With
    WordBasic.ViewFooterOnly
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
        Text:="FILENAME  \p ", PreserveFormatting:=True
    Selection.TypeText Text:="  "
    Selection.InsertDateTime DateTimeFormat:="d MMMM yyyy 'г.'", _
        InsertAsField:=False, DateLanguage:=wdRussian, _
    CalendarType:=wdCalendarWestern, InsertAsFullWidth:=False
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
        Text:="PAGE  ", PreserveFormatting:=True
    Selection.TypeText Text:="/"
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
        Text:="NUMPAGES  ", PreserveFormatting:=True
    Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    ''''''''''''''''''''''''''''''''
    ''ActivePrinter = "doPDF v7"
    ''''''''''''''''''''''''''''''''
    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, _
        Item:=wdPrintDocumentContent, Copies:= 1 , Pages:="", _
        PageType:=wdPrintAllPages, _
        ManualDuplexPrint:=False, Collate:=True, _
        Background:=True, PrintToFile:=False, PrintZoomColumn:= 0 , _
        PrintZoomRow:= 0 , PrintZoomPaperWidth:= 0 , _
        PrintZoomPaperHeight:= 0 
    ActiveDocument.Close  0 
    s1 = Dir
    Loop
    
End Sub