[bereznoy]

Необходимо что б документы из списка распечатывались сразу на принтер

Процедура ПечатьРН(ПечатьВФайл=0)                      
    ПечКопий=1;

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

[sava1]

При открытии формы передаем список документов.
В форме документа - список будет в Форма.Параметр.
Далее Если Форма.параметр НеПустой - печатаем и СтатусВозврата(0); Возврат.
Недостаток - нужно переписывать модуль формы.
Можно через Формекс - ВыполнитьПроцедуру контекста

[bereznoy]

Что не понял, необходимо дописать в документе который необходимо печатать? Я думал просто есть команда которая при открытии посылает на принтер и все

[Ardi]

Что не понял, необходимо дописать в документе который необходимо печатать? Я думал просто есть команда которая при открытии посылает на принтер и все

Переходите на российские конфигурации. Там комманда есть.

[bereznoy]

Переходите на российские конфигурации. Там комманда есть.

В открывающемся расходние есть кнопка ПЕЧАТЬ И ЗАКРЫТЬ, быть может можно будет выполнить процедуру при открытии
документа, процедура в документе называется "Печать1()" у кнопки идентификатор "кнПечать1"
как то так

ОткрытьФорму(ТекДок, ????);

с параметром запускавшим сразу процедурку "Печать1()"

[sava1]

Чтобы запустить сразу процедурку Печать, надо ее вызвать в процедурке ПриОткрытии и после сего действа вызвать Возврат,установив перед этим СтатусВозврата в 0.

А та фигня,обозначенная кучей ???? - и есть параметр, который в ПРиОткрытии будет доступно как Форма.Параметр

Сообщение отредактировал sava1 - 03.07.12, 13:29

[g789]

Можно через Формекс - ВыполнитьПроцедуру контекста

скорее через turbobl.dll (ну или 1с++)
когда-то давно выкладывал свою обработку на конкурирующем форуме

[alex1c]

В комплексной конфигурации у расходной (товары) это реализовано. посмотрите как там в проц. ПриОткрытии.

[sava1]

скорее через turbobl.dll (ну или 1с++)

Почему СКОРЕЕ ? Чем формекс не угодил - отрабатывает без проблем

Сообщение отредактировал Vofka - 03.07.12, 14:57

[g789]

Чем формекс не угодил

Если уже используется в конфигурации - то ради бога.

turbobl - на мой взгля просто легче и для клиентского компа и для использования программистом (если бы человек знал о функционале 1с++, formex в том числе, он бы наверное не спрашивал как сделать)

[bereznoy]

Господа, всем спасибо за подсказки, сделал так, в процедуре ПриОткрытии в документе который надо распечатать
добавил такой код

Если Форма.Параметр="Печать" тогда
    Печать1(1);
    СтатусВозврата(0);
  КонецЕсли;

[MATEVI]

Господа, всем спасибо за подсказки

"Так жеш не жмитесь" нажмите на кнопки, тому кто помог.

Сообщение отредактировал MATEVI - 03.07.12, 21:54

[Ardi]

А где же

Возврат;

[bereznoy]

Палец понажимал, извиняюсь туплю, а то температура 38, приболел немного