Set ObjWord = New Word.Application
  ObjWord.Options.CheckGrammarAsYouType = False
  Set rpt = ObjWord.Documents.Add( "C:\dot\ВП.dot" , False, , True) 
  Set myTable = rpt.Tables( 1 ) 
  j =  2 
  myTable.Rows( 2 ).Range.Bold = False
  Суммаа =  0 
  Колвоо =  0 
  While Not rc.EOF
    If IsNull(rc!РасширСерт) Then
      sert =  " " 
    Else
      sert = rc!РасширСерт
    End If
    myTable.Rows.Add myTable.Rows(j)  
    myTable.Cell(j,  2 ).Range.InsertBefore rc!Артикул
    myTable.Cell(j,  3 ).Range.InsertBefore rc!Груп
    myTable.Cell(j,  4 ).Range.InsertBefore rc!Наим
    myTable.Cell(j,  5 ).Range.InsertBefore rc!Марка
    myTable.Cell(j,  6 ).Range.InsertBefore rc!Кол
    Колвоо = Колвоо + rc!Кол
    myTable.Cell(j,  7 ).Range.InsertBefore CStr(rc!ЦенаПостИв)
    myTable.Cell(j,  8 ).Range.InsertBefore CStr(rc!Кол * rc!ЦенаПостИв)
    myTable.Cell(j,  9 ).Range.InsertBefore sert
    myTable.Cell(j,  1 ).Range.InsertBefore j -  1 
    Суммаа = Суммаа + rc!Кол * rc!ЦенаПостИв
    j = j +  1 
    rc.MoveNext
  Wend
  myTable.Rows.Add myTable.Rows(j)  
  myTable.Cell(Row:=j, Column:= 1 ).Merge MergeTo:=myTable.Cell(Row:=j, Column:= 5 )
  myTable.Cell(j,  1 ).Range.InsertBefore  "Итого" 
  myTable.Cell(j,  2 ).Range.InsertBefore CStr(Колвоо)
  myTable.Cell(j,  4 ).Range.InsertBefore CStr(Суммаа)
  j = j +  1 
  myTable.Rows(j).Cells.Split NumRows:= 1 , NumColumns:= 1 , MergeBeforeSplit:=True
  myTable.Cell(j,  1 ).Range.InsertBefore  "Итого на сумму: "  + СП(Суммаа)
  myTable.Cell(j,  1 ).Range.ParagraphFormat.Alignment = wdAlignParagraphRight
  While Not Printed
    rpt.PrintOut
    YN = MsgBox( "Нормально ли распечаталась накладная ?" , vbYesNo)
    If YN = vbYes Then Printed = True
  Wend
  rpt.Close SaveChanges:= 0 
  ObjWord.Quit SaveChanges:= 0  
  Set ObjWord = Nothing
  Set rpt = Nothing