Хеллоу!


Объединил с горем пополам два разных таб документа, один расходная накладная а второй налоговая накладная.

При выводе пользователю на просмотр объединенного табличного документа все чинно а вот когда жмякаешь предварительный просмотр то все смещается из за разного количества колонок в обеих таб доках.

Как это можно пофиксить?

В макете налоговой 114 колонок а в макете расходной 10

// Производит соединение разных по форматированию табличных документов
// ТДПриемник - табличный документ, в кот. устанавливается новый формат
// Отчет - табличный документ, на основании кот. будет установлен новый формат
Процедура ДобавитьОтчет(ТДПриемник, Отчет, ВыводитьРазделительСтраниц = Ложь) Экспорт

   Если ВыводитьРазделительСтраниц Тогда
       ТДПриемник.ВывестиГоризонтальныйРазделительСтраниц();
   КонецЕсли;    
   НачалоНовогоФорматаСтрок = ТДПриемник.ВысотаТаблицы + 1;
   ОбластьПрямоугольная = Отчет.Область(1, , Отчет.ВысотаТаблицы, );
   ТДПриемник.ВставитьОбласть(ОбластьПрямоугольная, ТДПриемник.Область(НачалоНовогоФорматаСтрок, 1));
   ТДПриемник.Область(НачалоНовогоФорматаСтрок, , НачалоНовогоФорматаСтрок + Отчет.ВысотаТаблицы - 1, ).СоздатьФорматСтрок();
   // назначим ширину колонок у новой области формата строк
   Для Счетчик = 1 По Отчет.ШиринаТаблицы Цикл
       ТДПриемник.Область(НачалоНовогоФорматаСтрок, Счетчик).ШиринаКолонки = Отчет.Область(1, Счетчик, 1, Счетчик).ШиринаКолонки;
   КонецЦикла;

КонецПроцедуры // ДобавитьОтчет

(2) у меня эта функция какраз и используется и все красиво объединяется но на печати какого то фига все смещается

(3) попробуй на другом принтере

(4) я не на принтер отправляю а Предварительный просмотр таб дока включаю и вижу что все разъехалось

понятно, столкнулся тоже с этим, для БСП2.0 пока выкрутился так:

Для Каждого ОбъектПечати Из ОбъектыПечати Цикл
           ИмяОбласти = ОбъектПечати.Представление;
           Для Каждого Элемент Из ТабличныеДокументы Цикл
               ТабДок = Элемент.Значение;
               ОбластьПечати = ТабДок.Области.Найти(ИмяОбласти);
               Если ОбластьПечати = Неопределено Тогда
                   Продолжить;
               КонецЕсли;
               
               ПовторятьПриПечатиСтрокиДокумента = ТабДок.ПовторятьПриПечатиСтроки;
                               
               Если ТабДок.АвтоМасштаб тогда
                   ТабДокПечать = Новый ТабличныйДокумент;
                   ТабДокПечать.ВставитьОбласть(ОбластьПечати, ТабДокПечать.Область(1,1,1,1));
                   ТабДокПечать.ИмяПараметровПечати = ТабДок.ИмяПараметровПечати;
                   Если Не ТабДок.ПовторятьПриПечатиСтроки = Неопределено Тогда
                       ТабДокПечать.ПовторятьПриПечатиСтроки = ТабДокПечать.Область(ТабДок.ПовторятьПриПечатиСтроки.Верх, , ТабДок.ПовторятьПриПечатиСтроки.Низ);
                   КонецЕсли;
                   ТабДокПечать.АвтоМасштаб = Истина;
                   ТабДокПечать.ОриентацияСтраницы = ТабДок.ОриентацияСтраницы;
                   Для й = 1 По ТабДок.ШиринаТаблицы Цикл
                       ТабДокПечать.Область(1, й).ШиринаКолонки = ТабДок.Область(1, й).ШиринаКолонки;
                   КонецЦикла;
                   ТабДокПечать.Напечатать(РежимИспользованияДиалогаПечати.НеИспользовать);
               Иначе
                   Если Не ТабДок.ПовторятьПриПечатиСтроки = Неопределено Тогда
                       ТабДок.ПовторятьПриПечатиСтроки = ТабДок.Область(ОбластьПечати.Верх + ТабДок.ПовторятьПриПечатиСтроки.Верх - 1, , ОбластьПечати.Верх + ТабДок.ПовторятьПриПечатиСтроки.Низ - 1);
                   КонецЕсли;
                   ОбластьПечатиПользователя = ТабДок.ОбластьПечати;
                   ТабДок.ОбластьПечати = ОбластьПечати;
                   
                   ТабДок.Напечатать(РежимИспользованияДиалогаПечати.НеИспользовать);
                   
                   ТабДок.ОбластьПечати = ОбластьПечатиПользователя;
                   ТабДок.ПовторятьПриПечатиСтроки = ПовторятьПриПечатиСтрокиДокумента;
                   ТабДок.АвтоМасштаб = Истина;
                   ТабДок.ПолеСверху = 10;

               КонецЕсли;
                               
           КонецЦикла;
       КонецЦикла;

(6) мне надо отправлять именно одним пакетом на печать

а когда печатаешь сразу на принтер - эффект тот же что и при просмотре?

(7) нужно еще учитывать такой вариант, что при большом объеме печати принтер может тупо не проглотить, а здесь гарантия хоть какая то :)

(8) на принтер не пробовал
(9) объем не большой, 3-4 страницы максимум

Правильный ответ в (2). Если у ТС не получается ... значит он что то делает неправильно. Посмотри В СП есть пример.

Все еще актуально (печатают одновременно и много людей, потом стоят возле принтера и выбирают где чье).

Одним заданием сразу несколько печатных форм?

ап

up

так что там? может в 8.3 это возможно?

я понял в чем прикол, при объединении в итоговом таб. документе добавляется куча пустых колонок справа от первого, за счет этого выводится куча пустых листов.

Теперь вопрос в том как от них избавится?

Спасибо.

избавился от пустых колонок, путем их удаления и стало намного лучше, но все равно не до конца.
Так как количество колонок в объединяемых макетах разное, то один лист растянут на всю ширину страницы а второй только на процентов 90.

Че делать?

(17) растягивай колонки того, что меньше по ширине
ваш кеп

Выводить и забивать по ширине страницы не предлагать?))