Не могу вывести отчет в MS Word.

Option Explicit

'*************************************** *************
'Создание документа с верхними и нижними
'колонтитулами и с таблицей внутри тела документа.
'Разработчик - Светлана Кирж
'*************************************** *************

'Поместите документ в c:\blank.doc дерикторию



Dim MyWord As Word.Application

Function PrintToPrinter()
Dim SelRange As String
Dim NumCopies As Integer
' Устанавливаем Cancel в True
ComDialog.CancelError = True
On Error GoTo ErrHandler

ComDialog.Flags = cdlPDAllPages
' Отображаем окно диалога Print

ComDialog.ShowPrinter


NumCopies = ComDialog.Copies

SelRange = wdPrintAllDocument

'Печатаем документ
MyWord.PrintOut Range:=SelRange, Item:= _
wdPrintDocumentContent, Copies:=NumCopies, Pages:="", PageType:=wdPrintAllPages, _
Collate:=True, Background:=True, PrintToFile:=False

Exit Function

ErrHandler:
' Пользователь нажал на Cancel
Err.Clear
Exit Function
End Function


Private Sub Command1_Click()
OpenDocum
End Sub

'Вставляем текст в документ
Function PrintReportinWord()

Dim Num As Integer
Dim NumTable As Integer
Dim NewR As Range 'Параметр для сохранения местонахождения курсора в документе
Dim NR As Integer 'Количество строк в таблице
Num = 1
NumTable = 1
With Selection

'Декларируем шрифты и разменры
.Font.Name = "Tahoma"
.Font.Size = 12
.Font.Bold = wdToggle 'именяем шрифт на более жирный
.ParagraphFormat.Alignment = wdAlignParagraphRight ' pexod na levyu ctorony documenta

'Вставляем дату

'.InsertDateTime DateTimeFormat:="d/M/yyyy", InsertAsField:=False, _
' DateLanguage:=wdDateLanguageLatin, CalendarType:=wdCalendarTypeGregorian

'или
'Вставляем
' .TypeText Text:=Format(Date, "dd/mm/yyyy")
'новая строчка
.TypeParagraph
.TypeParagraph

'объявляем цвет
'меняем цвет текста на синий
.Font.ColorIndex = wdBlue
.Font.Size = 16
.ParagraphFormat.Alignment = wdAlignParagraphCenter
'печатаем текст в документ
.TypeText Text:=" Example Document - testing "

'возвращаем стандартный цвет - черный
.Font.ColorIndex = wdAuto
.TypeParagraph
.ParagraphFormat.Alignment = wdAlignParagraphLeft
.Font.Size = 12
.TypeParagraph
.TypeText Text:="Example Table "
.TypeParagraph
'запоменаем место в документе для таблице
Set NewR = .Range

'добавляем таблицу
'создаем таблицу с определенным количеством строк и столбцов
NR = 3
.Tables.Add NewR, NR, 4

With ActiveDocument.Tables(NumTable)

'размер колонок
.Columns(1).SetWidth 110, wdAdjustFirstColumn
.Columns(2).SetWidth 110, wdAdjustFirstColumn
.Columns(3).SetWidth (.Columns(3).Width + .Columns(4).Width) / 2, wdAdjustFirstColumn

'заголовки для колонок
.Rows(1).Shading.Texture = wdTexture10Percent
.Cell(1, 1).Range.InsertBefore Text:="name1"
.Cell(1, 2).Range.InsertBefore Text:="name2"
.Cell(1, 3).Range.InsertBefore Text:="name3"
.Cell(1, 4).Range.InsertBefore Text:="name4"

'вставляем дату в колонки
Dim j As Integer
For j = 2 To NR
.Cell(j, 1).Range.InsertBefore Text:="TEST" & j + 1
.Cell(j, 2).Range.InsertBefore Text:="TEST" & j + 2
.Cell(j, 3).Range.InsertBefore Text:="TEST" & j + 3
.Cell(j, 4).Range.InsertBefore Text:="TEST" & j + 4
Next j
End With

'переходим вниз документа, после таблицы
Selection.EndKey unit:=wdStory

'востанавливаем параметры для определения шрифта
.Font.Name = "Tahoma"
.Font.Size = 12

'спускаемся на 2 строки вниз
.TypeParagraph
.TypeParagraph
.TypeText Text:=Text1.Text


'======================================= =================
'добавляем в нижний колонтитул

With ActiveDocument.Range.Sections(1).Footers (wdHeaderFooterPrimary).Range
.ParagraphFormat.Alignment = wdAlignParagraphLeft
.InsertBefore (Text2.Text & " " & Text3.Text)
End With
End With 'Selection

'======================================= =================


'Выводим готовый документ на экран
MyWord.Visible = True
MyWord.WindowState = wdWindowStateNormal
MyWord.Activate
MyWord.PrintPreview = True

Screen.MousePointer = vbDefault

'Посылаем на принтер для печати
PrintToPrinter

End Function

'Открытие документа
Function OpenDocum()
Dim NumPart As Integer
Err.Clear

'Смена стрелки мышки на часы
Screen.MousePointer = 11

On Error GoTo Notloaded

'Проверка на открытие WORD - а
Set MyWord = GetObject(, " Word.Application")

Notloaded:
'Если Word не открыт
If Err.Number = 429 Then
' Открытие WORD - а
Set MyWord = CreateObject("Word.Application")
ElseIf Err.Number <> 0 Then
'Выдается сообщение об ошибке
MsgBox Err.Description & vbCrLf & "Error"
Screen.MousePointer = 0
Exit Function
End If
'Отменяется показ документа на экране, все будет происходить невидимо для пользователя
MyWord.PrintPreview = False

'Открытие стандартного документа,созданного мной, как document1 или document2……

MyWord.Documents.Add "D:\КиРпИчИ\ВОРД\Создание док с таб\Files\blank.doc", False

'Преход в функцию для печати необходимого текста вдокумент
PrintReportinWord

End Function