thermit
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
// Процедура печати документов
// Для получения массива можно использовать "ВыгрузитьКолонку()"
Процедура ПечатьДокументов(МассивДокументов, НаПринтер)
Если НаПринтер Тогда
Ответ = Вопрос("При печати документов без предварительного просмотра будут использованы настройки,
|используемые при последней печати. Продолжить?", РежимДиалогаВопрос.ДаНет);
Если Ответ = КодВозвратаДиалога.Нет Тогда
Возврат;
КонецЕсли;
КонецЕсли;
Для каждого Ссылка Из МассивДокументов Цикл
Объект = Ссылка.ПолучитьОбъект();
МетаданныеОбъекта = Объект.Метаданные();
Если УниверсальныеМеханизмы.НапечататьДокументПоУмолчанию(Объект, , НаПринтер, Истина) Тогда
Сообщить(Ссылка);
КонецЕсли;
ИндикаторОбработки = ИндикаторОбработки + 1;
ОбработкаПрерыванияПользователя();
КонецЦикла;
Сообщить("-----------------------------------------------------------", СтатусСообщения.БезСтатуса);
Сообщить("Выполнение обработки завершено", СтатусСообщения.БезСтатуса);
КонецПроцедуры
|
Всего записей: 83 | Зарегистр. 25-10-2006 | Отправлено: 17:08 09-02-2011 | Исправлено: thermit, 17:09 09-02-2011 |
|
