Подключение принтера программно через AddWindowsPrinterConnection

Форум Программирование Общие вопросы программирования (Dev)

1. skela 2 20.10.21 14:47 Сейчас в теме

текПринтерПоУмолчанию = "NPI510517 (HP LaserJet M1536dnf MFP)";

XLSОбъект = Новый COMОбъект("Excel.Application");

XLSОбъект.Visible = Ложь;
XLSОбъект.DisplayAlerts = Ложь;
ЭксельCOM_WB = XLSОбъект.Workbooks;
тКнига = ЭксельCOM_WB.Open(лИмяФайла);
тКнига.SaveAs(лИмяФайла);

WinMGMT = ПолучитьCOMОбъект("winmgmts:\\" +ИмяКомпьютера()+ "\root\cimv2");
Printers = WinMGMT.ExecQuery("Sel ect * fr om Win32_Printer");
WshNetwork = Новый COMОбъект("WScript.Network");
NetworkPrinters = WshNetwork.EnumPrinterConnections();

Для Каждого Printer ИЗ Printers Цикл
//if(сокрЛП(Printer.Name) = текПринтерПоУмолчанию) then
if найти(Printer.Path_.Path, текПринтерПоУмолчанию)>0 then
//Printer.SetDefaultPrinter();
WshNetwork.AddWindowsPrinterConnection("\\"+Printer.Path_.Server+"\"+текПринтерПоУмолчанию);
WshNetwork.SetDefaultPrinter(текПринтерПоУмолчанию);
endif;

КонецЦикла;

тКнига = ЭксельCOM_WB.Open(лИмяФайла);
тЛист = тКнига.Sheets(1);

тЛист.PrintOut(1,1);
ЭксельCOM_WB.Close();
XLSОбъект.Application.Quit();

Показать

Ругается на

WshNetwork.AddWindowsPrinterConnection("\\"+Printer.Path_.Server+"\"+текПринтерПоУмолчанию);

, подскажите что я делаю не так?

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. skela 2 20.10.21 14:57 Сейчас в теме

Как можно проверить, установился ли принтер?

4. simuljakr 203 17.05.23 13:11 Сейчас в теме

(2) А как разобрались с AddWindowsPrinterConnection ?

3. skela 2 20.10.21 16:47 Сейчас в теме

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

ЭксельCOM_WB            = XLSОбъект.Workbooks;
тКнига                  = ЭксельCOM_WB.Open(лИмяФайла);
тКнига.SaveAs(лИмяФайлаПриёмника);

Но почему-то это не срабатывает

Оставьте свое сообщение

E-mail: