Копирование настроек печати с листа на лист
Предположим, что вы тщательно настроили параметры страницы для красивого вывода на печать таблицы на одном из листов вашей книги Excel. Распечатали его, повертели в руках лист из принтера, порадовались удачному размещению... и поняли, что листов-то у вас, на самом деле, 10 (или 110), т.е. придется повторять все настройки печати еще много-много раз.
На самом деле, все не так плохо :)
Как надо было сделать
Если вам нужно настроить одинаковые параметры страницы сразу для нескольких листов, то достаточно предварительно их выделить, удерживая Ctrl (листы не подряд) или Shift (листы подряд) и потом уже задавать параметры печати на вкладке Разметка страницы (Page Layout). Для наглядности, при выделении сразу нескольких листов в строке заголовка окна Excel будет отображена пометка [Группа]:
Не забудьте потом снять выделение группы листов, щелкнув по любому невыделенному листу, т.к. в режиме выделения группы листов многие функции Excel временно недоступны.
Как скопировать параметры страницы с одного листа на другие
Если вы уже сделали необходимые настройки на одном из листов, то большинство из них можно легко перенести на любые другие выбранные листы книги. Для этого откройте сначала лист-образец, а потом выделите также с Ctrl или Shift другие листы, куда вы хотите скопировать параметры печати. Затем перейдите на вкладку Разметка страницы (Page Layout) и нажмите на стрелку в правом нижнем углу группы Параметры страницы (Page Setup):
Откроется диалоговое окно параметров страницы, где будут отображены все настройки первого выделенного листа-образца. Ничего не меняя, просто нажмите ОК - и все настройки применятся ко всем выделенным листам.
Область печати и сквозные строки-столбцы
Единственное, что не переносится из параметров страницы прошлым способом - это область печати и сквозные строки/столбцы для печати на каждой странице. Их можно скопировать с помощью небольшого макроса. Откройте редактор Visual Basic на вкладке Разработчик - Visual Basic или с помощью сочетания клавиш Alt+F11, вставьте новый пустой модуль через меню Insert - Module и скопируйте туда код:
Sub Copy_PrintArea_And_PrintTitles()
Dim ws As Worksheet
'проходим по всем выделенным листам и копируем на них с текущего листа параметры
For Each ws In ActiveWindow.SelectedSheets
ws.PageSetup.PrintArea = ActiveSheet.PageSetup.PrintArea 'область печати
ws.PageSetup.PrintTitleRows = ActiveSheet.PageSetup.PrintTitleRows 'сквозные строки
ws.PageSetup.PrintTitleColumns = ActiveSheet.PageSetup.PrintTitleColumns 'сквозные столбцы
Next ws
End Sub
Закройте редактор и вернитесь в Excel. Откройте лист-образец и выделите (с Ctrl или Shift) другие листы. Запустите наш макрос сочетанием клавиш Alt+F8 или с помощью кнопки Макросы на вкладке Разработчик (Developer - Macros).
Ссылки по теме
- Что такое макросы, как их создавать, копировать и запускать
- Сохранение листов книги как отдельных файлов
- Сборка листов из разных книг в одну
