Проблема в следующем:
Есть 2 принтера
Printer1 (по умолчанию)
Printer2
Нужно провести автопечать (непосредственно на принтер без вывода на экран) сначала на Printer2, потом на Printer1
Если перед печатью не очищать в реестре Moxel печать не идет, поэтому в начале каждого из 2 циклов печати Moxel очищается, НО во втором цикле печать идет все-равно на Printer2.

Как сделать, чтобы во втором цикле печать шла на Printer1?

1.Вариант с ручным перебором принтеров не подходит.
2.Запись в Moxel принтера не помогает
3.Запись принтера в параметры таблицы не работает

К сожалению, при таком способе автопечать совсем не идет

Имя принтера:

\\Bk-bkoffice03\HP LaserJet 4200 PCL 6

Такой способ работает если выводить печатную форму на экран, если прямо на принтер - не пашет.

Я включил в печатную форму имя принтера
Тбв.ПараметрыСтраницы(1,,1,5,5,5,5,0,0,1,1,ИмяПринтера());
через вызов функции:

Функция ИмяПринтера()  Экспорт 
     Реестр=СоздатьОбъект("РеестрWin");
     Ключ="HKEY_CURRENT_USER";
     ИмяЗначения="Device";
     Режим="KEY_ALL_ACCESS"; 
     Имя="Software\Microsoft\Windows NT\CurrentVersion\Windows";
     Реестр.ОткрытьКлюч(Ключ,Имя,Режим); 
     ИмяПринтера="";
     Реестр.ЗапроситьЗначение(ИмяЗначения, ИмяПринтера); 
     Реестр="";
     Если  СтрДлина(СокрЛП(Строка(ИмяПринтера)))>0 Тогда 
           Запятая=Найти(ИмяПринтера,",");
           Если Запятая>0 Тогда
                 ИмяПринтера=СокрЛП(Лев(ИмяПринтера,Запятая-1));
           КонецЕсли;
           
     КонецЕсли; 
Возврат ИмяПринтера;
КонецФункции      

Попробуй еще так:

	Таб.Опции(,,,,"вася");
	Тбв.ПараметрыСтраницы(1,,1,5,5,5,5,0,0,1,1,ИмяПринтера());
	Таб.Показать(,,-1);
	Таб.Напечатать(0); 

RuporAbsurda писал(а) 12. Августа 2010 :: 11:22:



Принтёр прописывается в само файло, а не в реестр. (это для ворда)

Попробуй, у меня это работает и всё печатается ...

а ты случайно в качастве имени принтера не полый путь используешь (\\buh\PrinterName) ?

Цитата:

Полный, а что?
Цитата:

Йоксел и короткое название не пробовал.