Создание пользовательского диспетчера отчетов
Вы можете создать собственный отчет для печати, добавив макрос VBA на обычный лист модуля (макрос можно загрузить с www.exceltip.com).
Структура настраиваемого отчета о печати:
{пусто} 2. Столбец A: этот столбец содержит числа от 1 до 3: печать с листа, печать по имени диапазона или печать из пользовательского просмотра (рекомендуется).
-
Столбец B: введите имя листа, имя диапазона или имя настраиваемого представления.
-
Столбец C: введите номер страницы, которая будет напечатана в нижнем колонтитуле.
Макрос будет печатать с листа и автоматически добавлять необходимую информацию в нижний колонтитул, включая номер страницы, имя книги, адрес пути и имя листа, а также дату и время печати.
Sub PrintReports ()
Dim NumberPages как целое число, PageNumber как целое, i как целое Dim ActiveSh как рабочий лист, ChooseShNameView как строка Dim ShNameView как строка, ячейка как диапазон Application.ScreenUpdating = False Установить ActiveSh = ActiveSheet Range («a2»). Выбрать для каждой ячейки в диапазоне (Диапазон («a2»), Диапазон («a2»). Конец (xlDown))
Выберите ячейку Case.Значение Case 1 Sheets (ShNameView). Выберите Case 2 Application.GoTo Reference: = ShNameView Case 3 ActiveWorkbook.CustomViews (ShNameView) .Show End Select With ActiveSheet.PageSetup. CenterFooter.PageNumber .LeftFooter = ActiveWorkbook.FullName & «» & «& A & T & D»
Завершить ActiveWindow.SelectedSheets.PrintOut Копии: = 1 Далее i ActiveSh.Select Application.ScreenUpdating = True End Sub {пусто} 5. Цикл For Each в макросе вызывает отдельную печать для каждой ячейки в столбце A, начиная с A2.
-
В цикле область печати выбирается с помощью техники Select Case.
-
Информация, напечатанная в левой части нижнего колонтитула: & 08 = шрифт размером 8 пунктов, & D = Дата, & T = Время.
-
Чтобы запустить макрос с листа, нажмите Alt + F8, выберите макрос и нажмите «Выполнить».
ИЛИ Добавьте кнопку на лист и прикрепите к ней макрос.
-
Примечание. Используйте эту технику для добавления неограниченного количества отчетов.