Можете да креирате прилагођене извештаје за штампање додавањем ВБА макроа на обичан лист модула (макро се може преузети са ввв.екцелтип.цом).
Структура прилагођеног штампаног извештаја:
2. Колона А: Ова колона садржи бројеве између 1 и 3: штампање са листа, штампање према називу опсега или штампање из прилагођеног приказа (препоручено).
3. Колона Б: Унесите назив листа, назив опсега или назив прилагођеног приказа.
4. Колона Ц: Унесите број странице која се штампа у подножју.
Макро ће се штампати са листа и аутоматски додати потребне податке у подножје, укључујући број странице, назив радне свеске, адресу путање и назив листа, као и датум и време штампања.
Подштампани извештаји ()
Дим НумберПагес Ас Интегер, ПагеНумбер Ас Интегер, и Ас Интегер
Затамните АцтивеСх као радни лист, изаберитеСхНамеВиев као низ
Дим СхНамеВиев Ас Стринг, ћелија као опсег
Апплицатион.СцреенУпдатинг = Нетачно
Подесите АцтивеСх = АцтивеСхеет
Распон ("а2"). Изаберите
За сваку ћелију у опсегу (опсег ("а2"), опсег ("а2"). Крај (клДовн))
Одаберите Цасе целл.Валуе
Случај 1
Табеле (СхНамеВиев) .Одабери
Случај 2
Апплицатион.ГоТо Референца: = СхНамеВиев
Случај 3
АцтивеВоркбоок.ЦустомВиевс (СхНамеВиев) .Схов
Крај Изаберите
Са АцтивеСхеет.ПагеСетуп
. ЦентерФоотер.ПагеНумбер
.ЛефтФоотер = АцтивеВоркбоок.ФуллНаме & "" & "& А & Т & Д"
Завршити
АцтивеВиндов.СелецтедСхеетс.ПринтОут Копије: = 1
Затим сам
АцтивеСх.Селецт
Апплицатион.СцреенУпдатинг = Тачно
Енд Суб
5. Петља За свако у макроу изазива засебно штампање за сваку ћелију у колони А почевши од А2.
6. У петљи се подручје штампања бира техником Селецт Цасе Селецт.
7. Подаци штампани на левој страни подножја: & 08 = Фонт од 8 тачака, & Д = Датум, & Т = Време.
8. Да бисте покренули макро са листа, притисните Алт+Ф8, изаберите макро и кликните Покрени.
ИЛИ
Додајте дугме на лист и приложите макро на њега.
9. Напомена: Користите ову технику за додавање неограниченог броја извештаја.
Снимак екрана // Креирање прилагођеног менаџера извештаја
