Как осуществить групповую обработку печатных форм?
Таким методом выводит только последний таб док.


Процедура ПечатьНовый(ИмяМакета,ТБ)Экспорт
   
   Объект = СсылкаНаОбъект.ПолучитьОбъект();
   
   КодЯзыкаПечать = Локализация.ПолучитьЯзыкФормированияПечатныхФорм(УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(глЗначениеПеременной("глТекущийПользователь"), "РежимФормированияПечатныхФорм"));
   
   Если Объект.ЭтоНовый() Тогда
       Предупреждение("Документ можно распечатать только после его записи");
       Возврат;
   ИначеЕсли Не УправлениеПользователями.РазрешитьПечатьНепроведенныхДокументов(Объект.Проведен) Тогда
       Предупреждение("Недостаточно полномочий для печати непроведенного документа!");
       Возврат;
   КонецЕсли;
   
   Если Не РаботаСДиалогами.ПроверитьМодифицированность(Объект) Тогда
       Возврат;
   КонецЕсли;
   
   // Получить экземпляр документа на печать
   Если ИмяМакета = "Заказ" Тогда
       ТабДокумент = ПечатьСчетаЗаказа(ИмяМакета,ТБ);
   ИначеЕсли ИмяМакета = "ЗаказКорректировка" тогда
       ТабДокумент = ПечатьСчетаЗаказаКорректировки(ИмяМакета,ТБ);
   ИначеЕсли ИмяМакета = "Счет" тогда
       ТабДокумент = ПечатьСчетаЗаказаКорректировки(ИмяМакета,ТБ);
   ИначеЕсли ИмяМакета = "Групповая" Тогда
       ТабДокумент = ПечатьСчетаЗаказа(ИмяМакета,ТБ);
       ТабДокумент = ПечатьСчетаЗаказаКорректировки(ИмяМакета,ТБ);
       ТабДокумент = ПечатьСчетаЗаказаКорректировки(ИмяМакета,ТБ);
   
   КонецЕсли;
   
КонецПроцедуры

групповая - как заманчиво звучит это слово.....

(1)Ох у вас и мысли)

Надо смотреть, что внутри ПечатьСчетаЗаказа()

как на обнаженную спину посмотришь - сразу и мысли :)

Выложить код 2 процедур?

а что ты хотела то?

ТабДокумент = ПечатьСчетаЗаказа(ИмяМакета,ТБ);
       ТабДокумент = ПечатьСчетаЗаказаКорректировки(ИмяМакета,ТБ);
       ТабДокумент = ПечатьСчетаЗаказаКорректировки(ИмяМакета,ТБ);

последний и возвращается

ИначеЕсли ИмяМакета = "Групповая" Тогда
       ТабДокумент = ПечатьСчетаЗаказа(ИмяМакета,ТБ);
       ТабДокумент = ПечатьСчетаЗаказаКорректировки(ИмяМакета,ТБ);
       ТабДокумент = ПечатьСчетаЗаказаКорректировки(ИмяМакета,ТБ);
   
   КонецЕсли;

это вообще глупость

запусти в цикле по именам макетов

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

(7) по 1 выводит нормально, а вот групповую, сталкиваюсь первый раз

ИначеЕсли ИмяМакета = "Групповая" Тогда
 
  ТабДокумент = ПечатьСчетаЗаказа(ИмяМакета,ТБ);
  ТабДокумент.Вывести(ПечатьСчетаЗаказаКорректировки(ИмяМакета,ТБ));
   
КонецЕсли;

(10)Только последний таб док выводит

о, новое фото :) я рад

(12)Помогайте)

ИначеЕсли ИмяМакета = "Групповая" Тогда
       ИмяМакета = "Заказ";
       ТабДокумент = ПечатьСчетаЗаказа(ИмяМакета,ТБ);
       ТабДокумент.Вывести(ПечатьСчетаЗаказа(ИмяМакета,ТБ));
       
       ИмяМакета =  "ЗаказКорректировка";
       ТабДокумент = ПечатьСчетаЗаказаКорректировки(ИмяМакета,ТБ);
       ТабДокумент.Вывести(ПечатьСчетаЗаказаКорректировки(ИмяМакета,ТБ));
       
       ИмяМакета =  "Счет";
       ТабДокумент = ПечатьСчетаЗаказаКорректировки(ИмяМакета,ТБ);
       ТабДокумент.Вывести(ПечатьСчетаЗаказаКорректировки(ИмяМакета,ТБ));
КонецЕсли;

Тоже последний возвращает(

честно - я не понял что нужно.
на всякий случай -   групповая обработка спр и доков может печатать список документов

сделай им имена разные

ИначеЕсли ИмяМакета = "Групповая" Тогда
       ИмяМакета = "Заказ";
       ТабДокумент = ПечатьСчетаЗаказа(ИмяМакета,ТБ);
       ТабДокумент.Вывести(ПечатьСчетаЗаказа(ИмяМакета,ТБ));
       
       ИмяМакета =  "ЗаказКорректировка";
      //ТабДокумент = ПечатьСчетаЗаказаКорректировки(ИмяМакета,ТБ);
       ТабДокумент.Вывести(ПечатьСчетаЗаказаКорректировки(ИмяМакета,ТБ));
       
       ИмяМакета =  "Счет";
      //ТабДокумент = ПечатьСчетаЗаказаКорректировки(ИмяМакета,ТБ);
       ТабДокумент.Вывести(ПечатьСчетаЗаказаКорректировки(ИмяМакета,ТБ));
КонецЕсли;

(17) это уже не групповая - это ганг-банг какой-то выйдет

(16)Делала

(19) в общем выкладывай более откровенную фотку и тебе раскажу как вывести сразу три таб дока

(20)Нету таких)

(21) ну на нет и суда нет..

(21) и зачем я столько лет ковырял 1С, коли у мистянок нет фоток

(23)Зачем вам фото, вам что этих не хватает ?

(24) мужчинам всегда нужно что-то новое ;)

Для Каждого СтрокаПолучатель Из ЗапросТовары.Строки Цикл
   Для Каждого СтрокаКоррСчет Из СтрокаПолучатель.Строки Цикл
       ТабДокумент.Добавить( ВывестиПечатнуюФормуМХ18( Шапка, СтрокаКоррСчет.Строки));
   КонецЦикла;
КонецЦикла;

НаПринтер = Истина;
КоличествоЭкземпляров = 1;
Если ТипЗнч(ТабДокумент) = Тип("Массив") Тогда
   Для К = 0 По ТабДокумент.ВГраница() Цикл
       УниверсальныеМеханизмы.НапечататьДокумент( ТабДокумент[К], КоличествоЭкземпляров, НаПринтер, ОбщегоНазначения.СформироватьЗаголовокДокумента(СсылкаНаОбъект.ПолучитьОбъект()), ТабДокумент[К]);
   КонецЦикла;
Иначе
   УниверсальныеМеханизмы.НапечататьДокумент( ТабДокумент, КоличествоЭкземпляров, НаПринтер, ОбщегоНазначения.СформироватьЗаголовокДокумента(СсылкаНаОбъект.ПолучитьОбъект()), СсылкаНаОбъект);
КонецЕсли;

в ВывестиПечатнуюФормуМХ18 получаю таб. документ

(26)И как этот код осуществить у себя?

(27) либо включить моск, либо (20) :)
PS максимум могу скинуть свой пример печ. формы

я за  (20)

(28)Кидайте)

(29)Раздеть меня решили?)

предлагаю автора забанеть, пока не обновит фото:)

(32)Предложение отклонено, мало фактов)

Потому что ты очень злая внутренне. Не хочешь ни семьи, ни детей. А всё любишь деньги потреблять. О родителях позаботиться - "не могу, не хочу, некогда". Помочь окружающим людям - тоже. Познакомить парня со своей подружкой, чтобы они создали семью - тоже не хочешь. В общем, в очередной раз убеждаюсь, что в людях не осталось ничего святого. Сплошная погоня за деньгами, прибылью. А всё, что не приносит удовольствие - порицается и отбраковывается.
Вот зачем ты живёшь? Думаешь, что всё время будешь живой и здоровой? А вот Екатерина с мисты - едва не сдохла в больнице. И никто ей не помог - ни друзья, ни подруги. Только муж и отец.

Я давно знала, что ты очень вредная и неприступная. Но чтобы настолько - не подозревала!

эммм.. довели человека..оО

(34) это что?

Мне прислали на мыло

(37) а кто?

действительно - злая и вредная.. фотку не хочет сменить..

(39)+1
а мы тут подыхаем и никто не хочет фотку выложить

(38)Василий <[email protected]>

http://forum.infostart.ru/forum1/topic69325/

Поменяла

(42)Это надо для каждой процедуры новый макет?

Следующий это переменная?

Решила проблему, делаю все на 1 макете просто другие области буду вытягивать)

В комплексной 8.2 делал таким образом.

для каждого ТекСтр из Таблица цикл
   если не ТекСтр.Печатать тогда
           продолжить;
   конецесли;
       
   ТабДокумент = УниверсальныеМеханизмы.НапечататьВнешнююФорму(ТекСтр.Документ, Расшифровка);
   УниверсальныеМеханизмы.НапечататьДокумент(ТабДокумент, ЧислоКопий, НаПринтер, ОбщегоНазначения.СформироватьЗаголовокДокумента(ТекСтр.Документ), ТекСтр.Документ);
конеццикла;

(46) ну вот. сменила фото и сразу решила проблему!