Что нового

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

Hulk777

Новичок
Сообщения
69
Репутация
1
Здравствуйте. Использую
Код:
#NoTrayIcon
$ADDR=(@ScriptDir&'\Print.docx')
ShellExecute('wordpad','/p '&$ADDR,'','',@SW_HIDE)
Sleep(600000)
ShellExecute('wordpad','/p '&$ADDR,'','',@SW_HIDE)
Exit


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

Glass4217

Осваивающий
Сообщения
215
Репутация
32
Код:
#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

Знающий
Сообщения
270
Репутация
5
$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
 
Автор
H

Hulk777

Новичок
Сообщения
69
Репутация
1
После выполнения задачи второй принтер остается дефолтным. Как вернуть обратно по дефолту принтер, который был до запуска скрипта?
Сообщение автоматически объединено:

Разобрался. Благодарю.
 
Последнее редактирование:
Верх