Автоматическая печать документа на два принтера.

[Hulk777]

Здравствуйте. Использую

#NoTrayIcon
$ADDR=(@ScriptDir&'\Print.docx')
ShellExecute('wordpad','/p '&$ADDR,'','',@SW_HIDE)
Sleep(600000)
ShellExecute('wordpad','/p '&$ADDR,'','',@SW_HIDE)
Exit

С одним принтером работает. Возможно подать команду на распечатку на два одинаковых принтера?

 

[All2khoff]

#NoTrayIcon
Global $ADDR=(@ScriptDir&'\test\privet.docx')
$printername1 = "kryvosera"                ;принтер раз
$printername2 =  "hp"                    ;принтер два


Func print($printername)
   RunWait(@ComSpec & " /c " & 'wmic printer where name="'&$printername&'" call setdefaultprinter', '', @SW_HIDE, 6)    ;меняем принтер по умолчанию
   Sleep(5000)
   ShellExecute('wordpad','/p '&$ADDR,'','',@SW_HIDE)
EndFunc

print($printername1)
sleep(5000)
print($printername2)

 

[DyadyaGenya]

$printername1 = "kryvosera" ;принтер раз $printername2 = "hp" ;принтер два

Тогда может лучше так?

#NoTrayIcon
#include <Array.au3>

Global $ADDR=(@ScriptDir&'\test.docx')
Global $aPrinter[0]
_ArrayAdd($aPrinter, "kryvosera")               ;принтер раз
_ArrayAdd($aPrinter,  "hp")                    ;принтер два и так добавлять сколько надо

For $i = 0 To UBound($aPrinter)-1
   print($aPrinter[$i])
Next

Func print($printername)
   RunWait(@ComSpec & " /c " & 'wmic printer where name="'&$printername&'" call setdefaultprinter', '', @SW_HIDE, 6)    ;меняем принтер по умолчанию
   Sleep(5000)
   ShellExecute('wordpad','/p '&$ADDR,'','',@SW_HIDE)
EndFunc

Возможно подать команду на распечатку на два одинаковых принтера?

В принципе когда-то печатал сразу на два принтера одинаковых. Не все файлы печатались вроде. Не помню точно. Но попробуйте названия поменять у принтеров. Напр, добавить цифру 1 и 2. Правда тогда ещё не был знаком с autoit

 

[Hulk777]

После выполнения задачи второй принтер остается дефолтным. Как вернуть обратно по дефолту принтер, который был до запуска скрипта?

Сообщение автоматически объединено: 19 Дек 2021

Разобрался. Благодарю.