VBScript: как распечатать несколько файлов с диалоговым окном выбора принтера один раз - PullRequest
Новая
       26

VBScript: как распечатать несколько файлов с диалоговым окном выбора принтера один раз

0 голосов
/ 24 августа 2010

Мне нужно написать vbscript, который печатает все файлы в папке. Диалоговое окно принтера должно появиться в самом начале, чтобы позволить пользователю выбрать принтер для использования. Затем все файлы должны быть отправлены на принтер без вывода сообщений

Как я могу это сделать?

Заранее спасибо!

1 Ответ

0 голосов
/ 24 августа 2010

Наконец я произвел что-то вроде этого (упрощенно): 

set objPrnDlg = CreateObject( "MSComDlg.CommonDialog" )
objPrnDlg.PrinterDefault = True
objPrnDlg.ShowPrinter

set objShell = CreateObject("Shell.Application") 
set objFolder = objShell.Namespace(path-to-files) 
set colItems = objFolder.Items 
for each objItem In colItems 
  objItem.InvokeVerbEx ("Print") 
next
...