Имя: Пароль:
1C
1С v8
Как вывести на печать документ сразу на принтер
,
0 stark2012
 
22.04.14
10:28
Стандартная обработка УниверсальныйЖурналДокументов, как вывести на печать документы в списке сразу на принтер?

Сейчас процедура печати выглядит следующим образом:
    Для Каждого СтрДок Из СписокДокументов Цикл
        
        Если НЕ СтрДок.Печатать Тогда
            Продолжить;
        КонецЕсли;
        ДокОбъект=СтрДок.Ссылка.ПолучитьОбъект();
        Попытка
            СтруктураПечФорм=ДокОбъект.ПолучитьСтруктуруПечатныхФорм();
        Исключение
            СтруктураПечФорм=Неопределено;
        КонецПопытки;
        
        Попытка
            СоответствиеМакетов = ДокОбъект.ПолучитьСписокПечатныхФорм();
        Исключение
            Предупреждение("Документ не имеет печатных форм!");
            Возврат;
        КонецПопытки;
        
        НазваниеМакета = уатОбщегоНазначенияТиповые.уатПолучитьПечатнуюФормуПоУмолчанию(ДокОбъект.Метаданные().Имя, СоответствиеМакетов);
        
        уатОбщегоНазначенияТиповые.уатНапечататьДокументПоУмолчанию(ДокОбъект, , НазваниеМакета, , НаПринтер)
        
    КонецЦикла;
1 Godofsin
 
22.04.14
10:29
НаПринтер = 1;
2 Defender aka LINN
 
22.04.14
10:31
(0) Интересно, что же за параметр "НаПринтер" такой? А, понял! Если его установить в Истина, то при печати каждого документа из динамиков будет Queen играть.
3 Godofsin
 
22.04.14
10:35
(2) Ничо такой параметр ))))
2 + 2 = 3.9999999999999999999999999999999...