Как вывести на печать документ сразу на принтер

Стандартная обработка УниверсальныйЖурналДокументов, как вывести на печать документы в списке сразу на принтер?

Сейчас процедура печати выглядит следующим образом:
    Для Каждого СтрДок Из СписокДокументов Цикл

        Если НЕ СтрДок.Печатать Тогда
            Продолжить;
        КонецЕсли;
        ДокОбъект=СтрДок.Ссылка.ПолучитьОбъект();
        Попытка
            СтруктураПечФорм=ДокОбъект.ПолучитьСтруктуруПечатныхФорм();
        Исключение
            СтруктураПечФорм=Неопределено;
        КонецПопытки;

        Попытка
            СоответствиеМакетов = ДокОбъект.ПолучитьСписокПечатныхФорм();
        Исключение
            Предупреждение("Документ не имеет печатных форм!");
            Возврат;
        КонецПопытки;

        НазваниеМакета = уатОбщегоНазначенияТиповые.уатПолучитьПечатнуюФормуПоУмолчанию(ДокОбъект.Метаданные().Имя, СоответствиеМакетов);

        уатОбщегоНазначенияТиповые.уатНапечататьДокументПоУмолчанию(ДокОбъект, , НазваниеМакета, , НаПринтер)

    КонецЦикла;