Можете да създадете персонализирани отчети за печат, като добавите VBA макрос към обикновен лист с модули (макросът може да бъде изтеглен от www.exceltip.com).
Структура на отчета за персонализиран печат:
2. Колона А: Тази колона съдържа числа между 1 и 3: отпечатване от лист, отпечатване по име на диапазон или отпечатване от персонализиран изглед (препоръчително).
3. Колона B: Въведете името на листа, името на диапазона или името по избор.
4. Колона C: Въведете номера на страницата, която ще бъде отпечатана в долния колонтитул.
Макросът ще се отпечата от лист и автоматично ще добави необходимата информация към долния колонтитул, включително номера на страницата, името на работната книга, адреса на пътя и името на листа, както и датата и часа на отпечатване.
Sub PrintReports ()
Dim NumberPages As Integer, PageNumber As Integer, i As Integer
Затъмнете ActiveSh като работен лист, изберетеShNameView As String
Dim ShNameView As String, клетка като диапазон
Application.ScreenUpdating = False
Задайте ActiveSh = ActiveSheet
Обхват ("a2"). Изберете
За всяка клетка в обхвата (Range ("a2"), Range ("a2"). End (xlDown))
Изберете Case cell.Value
Случай 1
Листове (ShNameView) .Изберете
Случай 2
Application.GoTo Reference: = ShNameView
Случай 3
ActiveWorkbook.CustomViews (ShNameView) .Show
Край Изберете
С ActiveSheet.PageSetup
. CenterFooter.PageNumber
.LeftFooter = ActiveWorkbook.FullName & "" & "& A & T & D"
Край с
ActiveWindow.SelectedSheets.PrintOut Копия: = 1
Следва i
ActiveSh.Select
Application.ScreenUpdating = Вярно
End Sub
5. Цикълът For For в макроса предизвиква отделен печат за всяка клетка в колона А, започваща от A2.
6. В цикъла областта за печат се избира с помощта на техниката Select Case.
7. Информацията, отпечатана от лявата страна на долния колонтитул: & 08 = 8 -точков шрифт, & D = Дата, & T = Час.
8. За да стартирате макроса от листа, натиснете Alt+F8, изберете макроса и щракнете върху Изпълни.
ИЛИ
Добавете бутон към листа и прикрепете макроса към него.
9. Забележка: Използвайте тази техника, за да добавите неограничен брой отчети.
Екранна снимка // Създаване на персонализиран мениджър на отчети
