Можно как-то автоматизировать печать выборочных листов Excel?

[Busine2009]

ZSFoS
Открываем чистый файл Excel - Вид- Макросы - Запись макроса - Сохранить в "Личная книга макросов" - Окей - Печатаешь цифру 1 - Enter - Макросы - Остановить запись.
Alt+F11 - Пр. кн. мыши по VBAProject(PERSONAL.XLS) - Insert - Module. Вставляешь туда вот это:

Код: Выделить всё

Sub SuperPrint()
UserForm1.Show
End Sub

Щ. пр. кн. мыши по VBAProject(PERSONAL.XLS) - File - Import File... - Выбираешь файл Формы, который я вставил на этом форуме. Я выставил на форуме 2 файла, связанных с формой, - они должны быть разархивированы в одном место - выбери Рабочий стол.
Затем переходишь в Excel - Файл - Параметры - Настройка ленты - Создать вкладку - Пр. кн. мыши по "Создать вкладку "Настраиваемая" - Переименовать - Отображаемое имя "Хитрая печать" - Окей - Пр. кн. мыши по "Новая группа (настраиваемая) - Переименовать - Отображаемое имя "Печать нужных листов" - Окей - Выберите команды из "Макросы" - Ищешь макрос "SuperPrint" - Добавить - Окей.
Программа готова к работе.
Если что-то не получится, то пиши.

[Busine2009]

ZSFoS
Вот окончательный вариант.

[ZSFoS]

ZSFoS
Вот окончательный вариант.

прикольно работает, - то что надо , большой респект!

[Busine2009]

ZSFoS
это я собрал данные, благодаря AlexZZZ - ему респект и уважуха, я ни при чём.