|   |   | 
| 
 | Макет. Не выводится ориентация ландшафт | ☑ | ||
|---|---|---|---|---|
| 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     | 
| Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |