Доброго всем!

Вроде воопрос довльно простой, но решения пока в "Я" не нашел. Имеется некий внешний файл (вордовский или экселевский). Его нужно РАСПЕЧАТАТЬ программно из под 1С-ки. Как это сделать?

Может тут чего найдешь: v8: Программно распечатать файл.

(1) что-то я не вижу там решения...

КомандаСистемы и


print /?
Печать текстового файла.

PRINT [/D:устройство] [[диск:][путь]имя_файла[...]]

  /D:устройство   Устройство для печати.

Может сработает.... Сам не пробовал.

(3) спасибо - попробую....

вопрос только как устройство подставлять...т.е. перед тем как его туда подставлять - нужно же диалог выбора принтера пользователю вывести

А диалог выбора принтера можно в 1С-ке вызвать?! и получить от туда устройство?

НароооооооД!

Как вот это в 1С-ке выполнить?!

intResult = ShellExecute(Me.Hwnd, "open", strNameFile, 0, 0, SW_SHOWNORMAL)

можно.. обходтшь коллекцию принтаков и кидаешь их в список - потом выбор из списка

ну, буду апать....

(7) ок, следубщий логичный вопрос - как получить коллекцию принтеров?! Ну или хотя бы ОСНОВНОЙ принтер?

Функция ЗаполнитьПринтеры()
   Принтеры = Новый СписокЗначений;
   Состояние("Составляется список принтеров. Подождите.");
   Попытка
       Locator = Новый COMОбъект("WbemScripting.SWbemLocator");
       Сервисы = Locator.ConnectServer(".");
       Объекты = Сервисы.InstancesOf("Win32_Printer");
       // Теперь переберем все принтеры системы

       Для Каждого Принтер из Объекты Цикл
           ИмяПринтера = Принтер.Name;
           Пока Найти(ИмяПринтера,"\") > 0 Цикл
               ИмяПринтера = Сред(ИмяПринтера, Найти(ИмяПринтера,"\")+1);
           КонецЦикла;
           ИмяПринтера = СокрЛП(ИмяПринтера);
           Принтеры.Добавить(Принтер.Name,ИмяПринтера);
       КонецЦикла;
   Исключение
   КонецПопытки;
   Состояние();
   Возврат Принтеры;
КонецФункции

(10) мммм да, где-то встречал этот код...

(10) а он так выберет вообще все принтеры установленые на компе? т.е. и локальные и сетевые?

(12) да

как получить принтёр по-умолчанию.. тоже есть код.