Печать документа MS Word в формате А5

[ForMan1C]

Добрый день!

Есть проблема:
- Открыть документ MS Word (бланк-форма),
- Забить в таблицу данные,
- вывести на печать (А4 или А5 по ситуации).

Все вроде ничего работает:

Код Выделить Развернуть

Попытка
Ворд=СоздатьОбъект("Word.Application");
Ворд.Visible = 0;

Исключение 
Сообщить("Ошибка!!! Программа MS Word не установлена."); 
Возврат;
КонецПопытки;

Попытка
Бланк=Ворд.Documents.Open("zzzzzzzz.doc",,,,"1234");
Исключение
Сообщить("Ошибка!!! Файл бланка не найден!");   
Возврат;
КонецПопытки; 

Таблица1=БланкУК.Tables(2);
Таблица2=БланкУК.Tables(3);
Таблица3=БланкУК.Tables(4);

Таблица1.Cell(1,2).Range().Text=РегНомерЖурнала;
        ...........................................
Таблица2.Cell(1,5).Range().Text=Прав("0"+Строка(ДатаЧисло(ДатаДок)),2);     
Таблица3.Cell(1,7).Range().Text=Прав("0"+Строка(ДатаМесяц(ДатаДок)),2);

       Ворд.PrintOut();

Вот этот кусок кода работает но это для формата А4.

Косяк возникает при печати А5:

Код Выделить Развернуть

Ворд.PrintOut(1,0,0,"","","",0,1,"",0,0,1,"","0",0,0,0,"8390","11905");

Все равно печатает А4.

Решил написать vbscript:
 

Код Выделить Развернуть

ScrptCtrl = СоздатьОбъект("MSScriptControl.ScriptControl");
  ScrptCtrl.Language = "vbscript";
  ScrptCtrl.AddCode("
  |Sub PrintA5()
  | PrintOut PrintZoomPaperWidth:=8390, PrintZoomPaperHeight:=11905
  |End Sub
  |");
 
  ScrptCtrl.Run("PrintA5");

Выдает ошибку:

Код Выделить Развернуть

ScrptCtrl.AddCode("
{Документ.Удостоверение.Форма.Модуль(182)}: Ошибка компиляции Microsoft VBScript: Предполагается наличие инструкции

Люди добрые помогите, кто чем может.
А то реально уже зае-------ло.