Имя: Пароль:
1C
1С v8
1с установить вывод ворд по две страницы
0 КВАкер
 
17.10.13
22:36
Доброе всем!
Подскажите плиз, не могу найти. Что надо написать чтобы пользователю показывался ворд уже с разбивкой по две страницы (Целиком помещались две страницы)?
&НаСервере
Функция ВывестиПравилаСтрахованияНаПечать(ИмяМакета)
    //Получим вордовский документ
    АктивДокумен = Обработки.ПравилаСтрахования.ПолучитьМакет("Правила" + ИмяМакета);  
    КомОбъект     = АктивДокумен.Получить();
    
    // показать окно ворда
    //КомОбъект.PageSetup.TwoPagesOnOne = Истина;
    КомОбъект.ActiveWindow.Visible    = Истина;
    
    // обнуляем КомОбъект
    КомОбъект = 0;  
КонецФункции
1 КВАкер
 
17.10.13
23:35
Все аказалось элементарно. Создал макрос посмотрел команду и вуаля
&НаСервере
Функция ВывестиПравилаСтрахованияНаПечать(ИмяМакета)
    //Получим вордовский документ
    АктивДокумен = Обработки.ПравилаСтрахования.ПолучитьМакет("Правила" + ИмяМакета);  
    КомОбъект     = АктивДокумен.Получить();
    
    // показать окно ворда
    КомОбъект.ActiveWindow.ActivePane.View.Zoom.PageColumns = 2;
    КомОбъект.ActiveWindow.ActivePane.View.Zoom.PageRows = 1;
    КомОбъект.ActiveWindow.Visible    = Истина;
    
    // обнуляем КомОбъект
    КомОбъект = 0;  
КонецФункции
Глупец, лишенный способности посмеяться над собой вместе с другими, не сможет долго выносить программирование. Фредерик Брукс-младший