Процедура ПечатьРН(ПечатьВФайл=0)
ПечКопий=1;
ГлПринтер="";
Если СпПринтеры .РазмерСписка()>0 Тогда
ГлПринтер=СпПринтеры.ПолучитьЗначение(СпПринтеры.ТекущаяСтрока());
КонецЕсли;
СпДок=СоздатьОбъект("СписокЗначений");
ВыбратьСтроки();
Пока ПолучитьСтроку()=1 Цикл
Док=СоздатьОбъект("Документ");
Если Док.НайтиДокумент(Докум)=0 Тогда
Продолжить;
КонецЕсли;
СпДок.ДобавитьЗначение(Док.ТекущийДокумент(),""+Док.ДатаДок+" от "+Док.НомерДок+" = "+Формат(Док.Итог("СуммаСНДС"),"Ч19.2")+" "+Док.Контрагент);
СпДок.Пометка(СпДок.РазмерСписка(),1)
КонецЦикла;
Зн = ПолучитьПустоеЗначение();
Если СпДок.ОтметитьЗначения(Зн, "Выберите документы для печати") = 0 Тогда
Возврат;
КонецЕсли;
ГлТаблицаПечати.Очистить();
Для Сч = 1 По СпДок.РазмерСписка() Цикл
Если СпДок.Пометка(Сч) = 0 Тогда
Продолжить;
КонецЕсли;
ТекДок=СпДок.ПолучитьЗначение(Сч);
ОткрытьФормуМодально(ТекДок,"Печать"); //Тут каждый доку открывается, но как на принтер сразу без открытия его отправлять
КонецПроцедуры