По просьбе бухгалтеров была написана эта обработка. Умеет печатать или сохранять печатные формы документов. Предлагает на выбор печать на принтер, вывод на экран или сохранение в указанный каталог, Есть возможность задать формат (PDF,DOCX,XLS,XLSX) в котором сохранить печатную форму. Обработка не притендует на универсальность, так как требует внесения изменений в конфигурацию.
// Общий модуль - Универсальные механизмы
//
Процедура НапечататьДокумент(ПечДокумент, КоличествоЭкземпляров = 1, НаПринтер = Ложь, Заголовок = "", НепосредственнаяПечать = Ложь, Ссылка = Неопределено, ИмяМакета = "") Экспорт
Если ПечДокумент = Неопределено тогда
Возврат;
КонецЕсли;
// Получить необходимое количество копий
Если КоличествоЭкземпляров > 0 Тогда
ПечДокумент.КоличествоЭкземпляров = КоличествоЭкземпляров;
КонецЕсли;
Если НЕ ПечДокумент.АвтоМасштаб
И НЕ ЗначениеЗаполнено(ПечДокумент.ИмяПринтера) Тогда
ПечДокумент.АвтоМасштаб = Истина;
КонецЕсли;
Если ТипЗнч(НаПринтер) = Тип("Булево") Тогда
Если НаПринтер Тогда
ПечДокумент.Вывод = ИспользованиеВывода.Разрешить;
ПечДокумент.Напечатать(НепосредственнаяПечать = Истина);
Иначе
ФормаПечати = ПолучитьОбщуюФорму("ФормаПечати",, Заголовок + ИмяМакета + Ссылка);
ФормаПечати.Документ = Ссылка;
ФормаПечати.Заголовок = Заголовок;
ФормаПечати.ИмяМакета = ИмяМакета;
ФормаПечати.ПечатныйДокумент = ПечДокумент;
ФормаПечати.Открыть();
КонецЕсли;
ИначеЕсли ТипЗнч(НаПринтер) = Тип("СписокЗначений") Тогда
Каталог = НаПринтер.Получить(0).Значение;
Формат = НаПринтер.Получить(1).Значение;
ИмяФайла = НаПринтер.Получить(2).Значение;
ПечДокумент.Записать(Каталог+ИмяФайла,Формат);
ИначеЕсли ТипЗнч(НаПринтер) = Тип("Массив") Тогда
ПечДокумент.Вывод = ИспользованиеВывода.Разрешить;
ПечДокумент.Напечатать(НепосредственнаяПечать = Истина);
НаПринтер.Добавить(ПечДокумент);
ИначеЕсли ТипЗнч(НаПринтер.Значение) = Тип("Строка") Тогда
Если НаПринтер.Значение = "На экран (Предварительный просмотр)" тогда
ФормаПечати = ПолучитьОбщуюФорму("ФормаПечати",, Заголовок + ИмяМакета + Ссылка);
ФормаПечати.Документ = Ссылка;
ФормаПечати.Заголовок = Заголовок;
ФормаПечати.ИмяМакета = ИмяМакета;
ФормаПечати.ПечатныйДокумент = ПечДокумент;
ФормаПечати.Открыть();
Иначе
ПечДокумент.Имяпринтера = СокрЛп(НаПринтер);
ПечДокумент.Вывод = ИспользованиеВывода.Разрешить;
ПечДокумент.Напечатать(НепосредственнаяПечать = Истина);
КонецЕсли;
КонецЕсли;
//Если НаПринтер Тогда
// ПечДокумент.Напечатать(НепосредственнаяПечать = Истина);
//Иначе
// // Отобразить печатный документ на экране
// //ФормаПечати = ПолучитьОбщуюФорму("ФормаПечати",, Новый УникальныйИдентификатор);
// ФормаПечати = ПолучитьОбщуюФорму("ФормаПечати",, Заголовок + ИмяМакета + Ссылка);
// ФормаПечати.Документ = Ссылка;
// ФормаПечати.Заголовок = Заголовок;
// ФормаПечати.ИмяМакета = ИмяМакета;
// ФормаПечати.ПечатныйДокумент = ПечДокумент;
// ФормаПечати.Открыть();
//КонецЕсли;
КонецПроцедуры // НапечататьДокумент()
Проверял на работоспособнуть на платформе 8.2.19 и выше. Точно могу сказать на платформе 8.2.13 не работает так как нет поддержки PDF.
