|
Установка параметров печати | ☑ | ||
---|---|---|---|---|
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
|
А зачем параметры печати, если все настройки жестоко задаются?
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |