Версия для печати темы (https://pro1c.org.ua/index.php?s=f36382e9697eb2a845346131e507e132&showtopic=41914)

Нажмите сюда для просмотра этой темы в обычном формате

Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 _ Программирование обычных форм 1С 8.2 и не интерфейсной логики _ Печать документа на общей форме "ПечатьДокументов" ориентация страницы

Автор: Constantus 15.11.17, 9:29

Приветствую, форумчане!
"Управление торговлей 10.3", (Моби-С 5.5). "ABBYY Ukraine", 2003-2014 (2.3.20.1)

Сделал печать документа на основе общей формы "ПечатьДокументов".

Но печать вышла с книжной ориентацией, а требуется печать по-умолчанию в альбомной ориентации. Как такое сделать?

Процедура НапечататьДокумент1(ПечДокумент, КоличествоЭкземпляров = 1, НаПринтер = Ложь, Заголовок = "") Экспорт
Если ПечДокумент = Неопределено тогда
    Возврат;
КонецЕсли;
// Получить необходимое количество копий
Если КоличествоЭкземпляров < 1 Тогда
    ПечДокумент.КоличествоЭкземпляров = 1;
Иначе
     ПечДокумент.КоличествоЭкземпляров = КоличествоЭкземпляров;
КонецЕсли;
Если НаПринтер Тогда
     ПечДокумент.Напечатать();
Иначе
// Отобразить печатный документ на экране
    ФормаПечати = ПолучитьОбщуюФорму("ПечатьДокументов",, ПечДокумент);
    ФормаПечати.ПечатныйДокумент = ПечДокумент;
    ФормаПечати.Заголовок = Заголовок;
    ФормаПечати.Открыть();
КонецЕсли;
КонецПроцедуры // НапечататьДокумент()


В функции формирования табличного документа стоит ориентация

    Если ШК Тогда
    ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
    Иначе
    ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Портрет;
    КонецЕсли;
    

    Возврат ТабДок;




Извините, поспешил...

В модуле общей формы при открытии добавил код

ЭлементыФормы.ПолеТабличногоДокумента.ОриентацияСтраницы=ПечатныйДокумент.ОриентацияСтраницы;


Вроде сработало

Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7
https://pro1c.org.ua