Имя: Пароль:
1C
1С v8
Принтер в параметрах страницы
0 Zombi
 
21.02.14
10:20
Есть пользователь, который печатает из 1с как на обычный принтер, так и на принтер печати этикеток zebra. Проблема в том, что когда пользователь напечатает этикетку на зебре, эта зебра остается в параметрах страницы на остальные печатные формы и обычная печатная форма печатается с разбивкой страниц на 50. Решается проблема открытием параметров страницы и выбором там обычного принтера. Как сделать так, чтобы зебра не запоминалась в параметрах страницы или при печати на обычный принтер автоматически менялся принтер и в параметрах страницы?
1 ale-sarin
 
21.02.14
10:28
(0) В коде есть такое?
ТабДокумент .ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_ЭтикеткиЛАЛАЛА";
2 RomaH
 
naïve
21.02.14
10:40
и релиз платформы
3 Zombi
 
21.02.14
10:57
В коде только такое:

    Область.ВысотаСтраницы = 28;
    Область.ШиринаСтраницы = 54;
    
    Область.Рисунки.Штрихкод.Объект.Сообщение = Штрихкод;
    Область.Параметры.ЗаявкаНомерДата = "№" + Ссылка.Номер + " от " + Формат(Ссылка.Дата, "ДЛФ=D");
    Область.Параметры.Клиент = Клиент;
    
    ТабЭтикетка.Вывести(Область);
    ТабЭтикетка.ПолеСверху = 2;
    ТабЭтикетка.ПолеСнизу = 0;
    ТабЭтикетка.ПолеСлева = 1;
    ТабЭтикетка.ПолеСправа = 1;
    ТабЭтикетка.АвтоМасштаб = Истина;
    ТабЭтикетка.Показать();
4 Zombi
 
21.02.14
10:58
(2) 1С:Предприятие 8.2 (8.2.19.83)
5 ИС-2
 
21.02.14
11:02
Функция УстановитьПринтерДляПечати(МестоПоложение = "", ИмяПринтера = "");
    Попытка
        ОбъектСеть = Новый COMОбъект("WScript.Network");
        Если МестоПоложение = "Склад" Тогда

            ОбъектСеть.SetDefaultPrinter("Sklad1");
            
        ИначеЕсли МестоПоложение = "Выписка" Тогда
            ОбъектСеть.SetDefaultPrinter("P1 vipiska");
        иначе
            ОбъектСеть.SetDefaultPrinter(ИмяПринтера);
        КонецЕсли;    
        Возврат  Истина;
    Исключение
        дик_КлиентСервер.ВывестиСообщениеПользователю("Ошибка установки принтера для печати. Установите принтер по умолчанию сами. Сообщите ошибку программистам: " + ОписаниеОшибки());
        Возврат Ложь;
    КонецПопытки;
КонецФункции
6 ale-sarin
 
21.02.14
11:05
(3) Так напишите для каждого дока разное. Что бы запоминал параметры.
ТабДокумент .ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_ЭтикеткиЛАЛАЛА";
ТабДокумент .ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_СчетФактура";
ТабДокумент .ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_Накладная";
и т.п.
7 Zombi
 
21.02.14
11:22
(5) SetDefaultPrinter устанавливает принтер по умолчанию?
8 ale-sarin
 
21.02.14
11:24
(7) Можете и так сделать.
Но в ИмяПараметровПечати сохраняется не только принтер для данного документа, но и другие настройки пользователя: ориентация, поля и прочее.
Вообще посмотрите в типовом документе.
9 ИС-2
 
21.02.14
11:34
(7) да. При печати на зебру: устанавливаем его принтером по умолчанию, печатем, ставим обратно основой
10 RomaH
 
naïve
21.02.14
11:44
(4) старенький, было в каком-то недавнем релизе (год-два назад). что принтер не сохранялся
потом исправили
в общем ИмяПараметровПечати
если не поможет - обновитесь
11 RomaH
 
naïve
21.02.14
11:45
(4) упс, не на ту цифру посмотрел
релиз новый - значит ИмяПараметровПечати
12 Zombi
 
21.02.14
11:56
Буду пробовать, спасибо.