Имя: Пароль:
1C
 
Установка параметров печати
0 NIGHTHUNTER
 
24.08.22
08:47
Не получается задать параметры печати.

    ТабДок                     = Новый ТабличныйДокумент;
    ТабДок.ПолеСверху          = 0;
    ТабДок.ПолеСлева           = 0;
    ТабДок.ПолеСнизу           = 0;
    ТабДок.ПолеСправа          = 0;
    ТабДок.ОриентацияСтраницы  = ОриентацияСтраницы.Портрет;
    ТабДок.АвтоМасштаб         = Истина;


В предварительном просмотре ничего не меняется, выводится всякая ерунда.
Почему не получается задать правильное параметры печати?

При разработке, макет открываю с формы для проверки как, -
//
&НаКлиенте
Процедура Сформировать(Команда)
    ТабДок                              = ПечатьНаСервере();
    КоллекцияПечатныхФорм               = УправлениеПечатьюКлиент.НоваяКоллекцияПечатныхФорм("ПриказЗаданиеНаКомандировку");
    ПечатнаяФорма                       = УправлениеПечатьюКлиент.ОписаниеПечатнойФормы(КоллекцияПечатныхФорм, "ПриказЗаданиеНаКомандировку");
    ПечатнаяФорма.СинонимМакета         = "ПриказЗаданиеНаКомандировку";
    ПечатнаяФорма.ТабличныйДокумент     = ТабДок;
    ПечатнаяФорма.ИмяФайлаПечатнойФормы = "ПриказЗаданиеНаКомандировку";
    ОбластиОбъектов                     = Новый СписокЗначений;
    ДополнительныеПараменты                = Новый Структура("ЗаголовокФормы","Приказ задание на командировку");
    УправлениеПечатьюКлиент.ПечатьДокументов(КоллекцияПечатныхФорм, ОбластиОбъектов,ДополнительныеПараменты);
КонецПроцедуры
//
&НаСервере
Функция ПечатьНаСервере()
    ОбработкаОбъект = РеквизитФормыВЗначение("Объект");
    МассивОбъектов  = Новый Массив();
    МассивОбъектов.Добавить(Объект.СсылкаНаОбъект);
    ОбъектыПечати = Новый СписокЗначений;
    ОбъектыПечати.ЗагрузитьЗначения(МассивОбъектов);
    Возврат ОбработкаОбъект.СформироватьТабличныйДокумент(Объект.СсылкаНаОбъект);
КонецФункции
//
1 6awkup_true
 
24.08.22
08:48
принтер может не поддерживать печать с полями 0 - выход за границы печати. попробуй 0.5
2 NIGHTHUNTER
 
24.08.22
08:53
(1) Такое впечатление что, мои настройки не устанавливаются. Почему?
Открываю предварительный просмотр. Там другие настройки. Почему мои не принимаются?
3 6awkup_true
 
24.08.22
08:54
и попробуй не при создании табдока устанавливать, а после всех изменений его. в самом конце то бишь
4 NIGHTHUNTER
 
24.08.22
08:54
Функция СформироватьТабличныйДокумент(ОбъектПечати) Экспорт
    //
    ТабДок                     = Новый ТабличныйДокумент;
    ТабДок.ПолеСверху          = 0.5;
    ТабДок.ПолеСлева           = 0.5;
    ТабДок.ПолеСнизу           = 0.5;
    ТабДок.ПолеСправа          = 0.5;
    ТабДок.ОриентацияСтраницы  = ОриентацияСтраницы.Портрет;
    ТабДок.АвтоМасштаб         = Истина;
    ТабДок.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_ПриказЗаданиеНаКомандировку";
    //
    Если Не ЗначениеЗаполнено(ОбъектПечати) Тогда
        Возврат ТабДок;
    КонецЕсли;
    //
    Макет           = ПолучитьМакет("ПФ_MXL_ПриказЗаданиеНаКомандировку_ru");
    ОбластьПриказ = Макет.ПолучитьОбласть("Приказ");
    //
    НомерНаПечать = ПрефиксацияОбъектовКлиентСервер.НомерНаПечать(ОбъектПечати.Номер);
    ДатаНаПечать  = Формат(ОбъектПечати.Дата, "ДЛФ=DD");
    ТабДок.Вывести(ОбластьПриказ);
    //
    Возврат ТабДок;
КонецФункции
//
5 NIGHTHUNTER
 
24.08.22
08:58
Я сделал так, все равно мои настройки почему то не учитываются.

//
&НаКлиенте
Процедура Сформировать(Команда)
    ТабДок                              = ПечатьНаСервере();
    КоллекцияПечатныхФорм               = УправлениеПечатьюКлиент.НоваяКоллекцияПечатныхФорм("ПриказЗаданиеНаКомандировку");
    ПечатнаяФорма                       = УправлениеПечатьюКлиент.ОписаниеПечатнойФормы(КоллекцияПечатныхФорм, "ПриказЗаданиеНаКомандировку");
    ПечатнаяФорма.СинонимМакета         = "ПриказЗаданиеНаКомандировку";
    ПечатнаяФорма.ТабличныйДокумент     = ТабДок;
    //
    ПечатнаяФорма.ТабличныйДокумент.ПолеСверху          = 0.5;
    ПечатнаяФорма.ТабличныйДокумент.ПолеСлева           = 0.5;
    ПечатнаяФорма.ТабличныйДокумент.ПолеСнизу           = 0.5;
    ПечатнаяФорма.ТабличныйДокумент.ПолеСправа          = 0.5;
    ПечатнаяФорма.ТабличныйДокумент.ОриентацияСтраницы  = ОриентацияСтраницы.Портрет;
    ПечатнаяФорма.ТабличныйДокумент.АвтоМасштаб         = Истина;
    ПечатнаяФорма.ТабличныйДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_ПриказЗаданиеНаКомандировку";
    //
    ПечатнаяФорма.ИмяФайлаПечатнойФормы = "ПриказЗаданиеНаКомандировку";
    ОбластиОбъектов                     = Новый СписокЗначений;
    ДополнительныеПараменты                = Новый Структура("ЗаголовокФормы","Приказ задание на командировку");
    УправлениеПечатьюКлиент.ПечатьДокументов(КоллекцияПечатныхФорм, ОбластиОбъектов,ДополнительныеПараменты);
КонецПроцедуры
//
6 Sneer
 
24.08.22
12:56
(5) Попробуй эту строку

ПечатнаяФорма.ТабличныйДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_ПриказЗаданиеНаКомандировку";

переставить в начало, чтобы все изменения после были
7 СеменовСемен
 
24.08.22
13:46
А зачем параметры печати, если все настройки жестоко задаются?
Выдавать глобальные идеи — это удовольствие; искать сволочные маленькие ошибки — вот настоящая работа. Фредерик Брукс-младший