Если нужно, что бы на одном табличном документе выводилось две копии по горизонтали тогда в процедуру передаем поле табличного документа размещенного на форме и табличный документ, который нужно задублировать и разместить горизонтально.
//++ jaroslav.h 12.06.2017 #1904
Процедура ВыводВНесколькоКолонок(ПолеТабличногоДокумента, ТабличныйДокументИсточник) Экспорт
т1 = Новый ТабличныйДокумент;
т2 = Новый ТабличныйДокумент;
т3 = Новый ТабличныйДокумент;
т1.Вывести(ТабличныйДокументИсточник);
т2.Вывести(ТабличныйДокументИсточник);
выс = Макс(т1.ВысотаТаблицы, т2.ВысотаТаблицы);
о1 = т1.ПолучитьОбласть(1,1, выс, т1.ШиринаТаблицы);
о2 = т2.ПолучитьОбласть(1,1, выс, т2.ШиринаТаблицы); ПолеТабличногоДокумента.Вывести(о1);
ПолеТабличногоДокумента.Присоединить(о2);
ПолеТабличногоДокумента.ПолеСверху = 1;
ПолеТабличногоДокумента.ПолеСправа = 1;
ПолеТабличногоДокумента.ПолеСнизу = 1;
ПолеТабличногоДокумента.ПолеСлева = 1;
ПолеТабличногоДокумента.АвтоМасштаб = Истина;
ПолеТабличногоДокумента.Защита = Истина;
ПолеТабличногоДокумента.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
КонецПроцедуры //-- jaroslav.h 12.06.2017 #1904
//++ jaroslav.h 12.06.2017 #1904
Процедура ВыводВНесколькоКолонок(ПолеТабличногоДокумента, ТабличныйДокументИсточник) Экспорт
т1 = Новый ТабличныйДокумент;
т2 = Новый ТабличныйДокумент;
т3 = Новый ТабличныйДокумент;
т1.Вывести(ТабличныйДокументИсточник);
т2.Вывести(ТабличныйДокументИсточник);
выс = Макс(т1.ВысотаТаблицы, т2.ВысотаТаблицы);
о1 = т1.ПолучитьОбласть(1,1, выс, т1.ШиринаТаблицы);
о2 = т2.ПолучитьОбласть(1,1, выс, т2.ШиринаТаблицы); ПолеТабличногоДокумента.Вывести(о1);
ПолеТабличногоДокумента.Присоединить(о2);
ПолеТабличногоДокумента.ПолеСверху = 1;
ПолеТабличногоДокумента.ПолеСправа = 1;
ПолеТабличногоДокумента.ПолеСнизу = 1;
ПолеТабличногоДокумента.ПолеСлева = 1;
ПолеТабличногоДокумента.АвтоМасштаб = Истина;
ПолеТабличногоДокумента.Защита = Истина;
ПолеТабличногоДокумента.ТолькоПросмотр = Истина;
КонецПроцедуры //-- jaroslav.h 12.06.2017 #1904