Имя: Пароль:
1C
1С v8
Макет. Не выводится ориентация ландшафт
0 Max Street
 
13.03.14
14:46
Привет. Помогите, пожалуйста, вывести макет с ориентацией ландшафт.
Собственно, имеется макет. Левая часть разделена на 1 область: область1. Правая часть разделена на 3 области: шапка, ТЧ, подвал. Но при печати выводится в портретной ориентации(правая часть под левой)
Вот листинг кода:

    Макет = Документы.Заказы.ПолучитьМакет("ДоговорВозмездногоОказанияУслуг");
    
    Область1 = Макет.ПолучитьОбласть("Область1");
    ОбластьШапка = Макет.ПолучитьОбласть("Шапка");
    ОбластьТЧ = Макет.ПолучитьОбласть("ТЧ");
    ОбластьПодвал = Макет.ПолучитьОбласть("Подвал");
    ТабДок.Очистить();

    ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
    ТабДок.ВывестиВертикальныйРазделительСтраниц();
    ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;

    //здесь текст запроса
    ВыборкаШапка = РезультатЗапроса.Выбрать();
    
    Если ВыборкаШапка.Следующий() Тогда
        Область1.Параметры.Дата = Формат(ВыборкаШапка.Дата, "ДФ=dd.MM.yyyy");
        Область1.Параметры.Выполнить = Формат(ВыборкаШапка.Выполнить, "ДФ=dd.MM.yyyy");
        Область1.Параметры.Заказчик = ВыборкаШапка.Заказчик;
                        
        ТабДок.Вывести(Область1);

        ОбластьШапка.Параметры.СуммаИтого = ВыборкаШапка.СуммаПоДокументу;
        ОбластьШапка.Параметры.СуммаАванс = ВыборкаШапка.СуммаАванс;
        ОбластьШапка.Параметры.Рассрочка = ВыборкаШапка.Рассрочка;
        
        ТабДок.Вывести(ОбластьШапка);
        
        Номер = 1;
        Пока Номер <= ВыборкаШапка.Рассрочка Цикл
            ОбластьТЧ.Параметры.Номер = Номер;
            ТабДок.Вывести(ОбластьТЧ);
            
            Номер = Номер + 1;
        КонецЦикла;
        
        ОбластьПодвал.Параметры.Исполнитель = Константы.НаименованиеОрганизации.Получить();
        ОбластьПодвал.Параметры.Адрес = Константы.ЮридическийАдрес.Получить();
        ОбластьПодвал.Параметры.Телефон = Константы.КонтактнаяИнформация.Получить();
        ОбластьПодвал.Параметры.Заполнить(ВыборкаШапка);
        
        ТабДок.Вывести(ОбластьПодвал);
    КонецЕсли;
1 Maxus43
 
13.03.14
14:50
это зачем?

    ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
    ТабДок.ВывестиВертикальныйРазделительСтраниц();
2 Max Street
 
13.03.14
14:52
(1) это не нужно, но и комментирование этих строк не помогло
3 Maxus43
 
13.03.14
14:53
Ориентацию страницы ставь перед ТабДок.Показать();
т.е. после всех заполнений и т.д.
Автомасштаб = Истина тоже поставь в конце
4 dimaldinho
 
13.03.14
14:56
Когда-то давно помогало
    ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_ЗарплатаКВыплатеОрганизаций_Т53";
5 Max Street
 
13.03.14
14:56
(3) сделал вот так, не помогло.

&НаКлиенте
Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды)

    ТабДок = Новый ТабличныйДокумент;
    ДоговорВозмездногоОказанияУслуг(ТабДок, ПараметрКоманды);

    ТабДок.ОтображатьСетку = Ложь;
    ТабДок.Защита = Ложь;
    ТабДок.ТолькоПросмотр = Ложь;
    ТабДок.ОтображатьЗаголовки = Ложь;
    
    ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
    ТабДок.АвтоМасштаб = Истина;
    ТабДок.Показать();
                      
КонецПроцедуры
6 Max Street
 
13.03.14
14:58
(4) а что должно быть в кавычках? у меня синкакс-помощник не находит ИмяПараметровПечати
7 Maxus43
 
13.03.14
14:59
(6) не всему СП можно верить...
по сути в настройках принтера наверное осталось
8 Max Street
 
13.03.14
15:01
(7) настройки принтера ни при чем. в документе 2 печатные формы ландшафтные одна из них отображается верно по нажатию на конпку Печать, вторая - нет
9 dimaldinho
 
13.03.14
15:03
(6) что-то вроде "ПАРАМЕТРЫ_ПЕЧАТИ_МояПечатнаяФорма";
10 Max Street
 
13.03.14
15:05
(9) вот так написал, тоже не помогло:
&НаКлиенте
Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды)

    ТабДок = Новый ТабличныйДокумент;
    ДоговорВозмездногоОказанияУслуг(ТабДок, ПараметрКоманды);

    ТабДок.ОтображатьСетку = Ложь;
    ТабДок.Защита = Ложь;
    ТабДок.ТолькоПросмотр = Ложь;
    ТабДок.ОтображатьЗаголовки = Ложь;
    
    ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
    ТабДок.АвтоМасштаб = Истина;
    ТабДок.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_ДоговорВозмездногоОказанияУслуг";
    ТабДок.Показать();
                      
КонецПроцедуры
11 Max Street
 
13.03.14
16:23
Up
Основная теорема систематики: Новые системы плодят новые проблемы.