Как убрать галочку в окне печать разобрать по копиям

[andreypastuh]

Столкнулся с такой проблемой - при печати документа с икселя постоянно приходиться убирать галочку "разобрать по копиям". Печатать приходиться очень много и каждый раз наводить курсор и убирать галочку забирает много времени. Подскажите, пожалуйста где можно эту галочку убрать и оставить по умолчанию без галочки.Заранее благодарен!

[Busine2009]

andreypastuh,
а галочка в каком диалоговом окне стоит?

[andreypastuh]

файл - печать-...

[Busine2009]

andreypastuh,
вот код

Application.Dialogs(xlDialogPrint).Show arg15:=0

вешаешь на кнопку печать вместо команды вызова диалогового окна печать.
Если не знаешь, как это делать, то пиши.

[andreypastuh]

[IMG][/IMG]

---------- Добавлено в 22:33 ---------- Предыдущее сообщение было написано в 22:26 ----------

Незнаю!!!!!!!!!

[Busine2009]

andreypastuh,

1. Сервис - Макрос - Начать запись - Сохранить в "Личная книга макросов"
2. Ставишь цифру "1" - Enter - Сервис - Макрос - Остановить запись.
3. Сервис - Макрос - Редактор Visual Basic.
4. Щ. пр. кн. мыши по VBAProject(PERSONAL.XLS) - Insert- Module.
5. 2 раза щ. л. кн. мыши по Moduleпоследний номер.
6. Справа видишь, что мигает курсор. Вставь туда код из этой темы, который я написал.
7. Перейди в Excel - Сервис - Настройки - Команды - Макросы - Настраевамая кнопка - Перетащи её на Стандартную панель инструментов .
8. Пр. кн. мыши по этой кнопке - Назначить макрос - Выбери "МАКРОС.XLS!МакросНомер - Окей.

Вместо кнопки "Печать используй эту кнопку".
Если что-то не понятно, то пиши.

[andreypastuh]

Спасибо! Попробую!