Как в Microsoft Word 2003 сотворить ярлык на его собственной панели задач для печати на конкретный а не текущий принтер?

[-]

В полный рост встал вопрос.

Есть: комп, два принтера - струйник, лазерник.
Печатают то на одном, то на другом. Часто. Много.
Чтобы выбрать на каком принтере - я вывел значёк пункта меню "Файл-Печать..." прямо на панель задач.
Далее люди нажимают на него, получают диалоговое окно "Печать", выбирают в нём на какой принтер печатать, нажимают кнопку ОК.

Кто-нибудь знает способ, при котором можно на панель Ворда вывести сразу значок печати на выбранный заранее принтер?
То есть: есть два значка "Печать", но один настроен на струйник, другой на лазерник. Достаточно нажать на необходимый значок - и печать начинается сразу же, без запросов, диалоговых окон.

Я искал в гугле, но что-т с разгону не нашёл.

[Dr.Graf]

А если макросы записать с указанной последовательностью

"Файл-Печать..." окно "Печать", выбирают в нём на какой принтер печатать, нажимают кнопку ОК

для каждого принтера и создать соответствующие кнопки?

[-]

для каждого принтера и создать соответствующие кнопки?

Хм. я тоже думал об этом, но даже не знаю как привязать макрос к кнопке. (не изучал вопрос)
Надо бы попробовать.
Но всё равно это через задницу, думал - мож кто вариант получше знает.

[Dr.Graf]

Создание макроса для Вашей ситуации:
Сервис->Макрос->Начать запись->Задать имя макроса+Назначить панели->ОК->Файл->Печать->выбрать принтер+параметры печати->ОК->Oстановить запись.

Привязка макроса к кнопке:
Сервис->Настройка->Команды->в левом окне"Категории" выбрать Макросы, из правого окна "Команды" перетащить нужный макрос на панель инструментов->отредактировать созданную кнопку "Изменить выделенный объект"->Закрыть

Так для каждого из принтеров. Работы на пару минут

[-]

Создание макроса для Вашей ситуации:

В целом умозрительно вроде всё понятно.
Спасибо большое.

И вроде я макросами ранее пользовался, а вот скользнула мысль о них - и была отброшена. Эт я зря.
Доберусь до места где сабж требуется - отпишусь.

Добавлено через 41 минуту 40 секунд:

Так для каждого из принтеров. Работы на пару минут

Сдаётся, что я знаю почему у меня эта идея подсознательно отбросилась. Позвонил по телефону, обрисовал словами за макросы, сделали.
Получается следующее: при выборе принтера из списка принтеров ведь текущим принтером стоит разный... А макрос печати упорно выбирает один и тот же пункт меню, а под оным получается не обязательно один и тот же принтер...

[Dr.Graf]

Наверное я не очень четко выразился. Нужно для каждого принтера создать свой макрос, а при его создании (записи) принудительно выбирать конкретный принтер из списка.
Т.е. 2 принтера - 2 макроса - 2 кнопки.
Сами макросы выглядят примерно так:

Sub Макрос4()

'
ActivePrinter = "HP LaserJet 1020"
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End Sub

Sub Макрос5()
'

ActivePrinter = "Epson LX-300+"
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End Sub

У меня все работает

[-]

Наверное я не очень четко выразился. Нужно для каждого принтера создать свой макрос, а при его создании (записи) принудительно выбирать конкретный принтер из списка.

Всё так, всё так и сделали - но по телефону, сам не видел.
Доберусь до места - отпишусь - эт может вечером, мож завтра.

У меня все работает

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

[Dr.Graf]

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

Может, по-старому пользуются кнопкой "Печать", а не кнопками запуска макросов - тогда так и будет печататься: вывод на принтер, использовавшийся последним.

[-]

Может, по-старому пользуются кнопкой "Печать",

Исключено, там пользователи вменяемые.

[Klon]

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

[Dr.Graf]

В ходе практических проверок ситуации обнаружился один нюанс: при записи макроса на этапе диалогового окна Печать из выпадающего списка нужно сначала выбрать любой другой принтер (не тот, для которого создается), дождаться закрытия выпадающего списка, а затем выбрать нужный принтер и только потом уже нажимать ОК. Если просто ткнуть один раз - первая строка вида ActivePrinter = "HP LaserJet 1020" не создается и получается упомянутая ситуация.
Проверить текст макроса можно Сервис->Макрос->Макросы->выбрать нужный->Изменить.

Добавлено через 2 минуты 12 секунд:
Klon
Да нет, судя по всему, макросы работают, но при их создании был упущен упомянутый нюанс, обнаруженный опытным путем. Я у себя создавал вначале макрос для принтера, включенного не по умолчанию, поэтому видимо все получилось с первой попытки.

[-]

макросы врубили?

Да, конечно же, печать же шла.

В ходе практических проверок ситуации обнаружился один нюанс:

Так это очевидно мне было, посему сначала был по умолчанию принтером выставлен "Microsoft office document writter", затем только в менюхе выбирался то струйник, то лазерник.
Думаю, нужно нормал.дот снести, на всякий...

[Dr.Graf]

Посмотрите, как выглядят первые строки этих макросов, если что - добавьте строки типа ActivePrinter = "HP LaserJet 1020" и ActivePrinter = "Epson LX-300+" вручную; наименование принтера - так как он поименован в системе

[-]

Посмотрите, как выглядят первые строки этих макросов,

Это мне понятно, но я сейчас - никак не могу. Далеко оно всё от меня.
Вечером, либо завтра, как успеется.

Спасибо большое за помощь.

Добавлено через 5 часов 39 минут 30 секунд:
Снесли нормал.дот, создали с нуля - всё нормально.
Гы...

Спасибо тебе, добрый Dr.Graf.