创建自定义报表管理
您可以通过将VBA宏添加到常规模块表中来创建自定义打印报告（可以从www.exceltip.com下载该宏）。
自定义打印报告的结构：
{空} 2。列A：此列包含1到3之间的数字：从工作表打印，按范围名称打印或从自定义视图打印（推荐）。
-
B列：键入工作表名称，范围名称或自定义视图名称。
-
C列：在页脚中键入要打印的页码。
该宏将从表中打印出来，并自动将必要的信息添加到页脚中，包括页码，工作簿名称，路径地址和表名称以及打印日期和时间。
子PrintReports（）
Dim NumberPages作为整数，PageNumber作为整数，i作为整数Dim ActiveSh作为工作表，ChoiceShNameView作为字符串Dim ShNameView作为字符串，单元格作为范围Application.ScreenUpdating = False设置ActiveSh = ActiveSheet Range（“ a2”）。为范围中的每个单元格选择（Range（“ a2”），Range（“ a2”）。End（xlDown））
选择Case单元格。值Case 1 Sheets（ShNameView）。选择Case 2 Application.GoTo参考：= ShNameView Case 3 ActiveWorkbook.CustomViews（ShNameView）。使用ActiveSheet.PageSetup显示最终选择。 CenterFooter.PageNumber .LeftFooter = ActiveWorkbook.FullName＆“”＆“＆A＆T＆D”
以ActiveWindow.SelectedSheets.PrintOut结尾副本：= 1接下来，i ActiveSh.Select Application.ScreenUpdating = True结束子 5。宏中的For Each循环导致A列中每个单元格从A2开始单独打印。
6.在循环中，使用Select Case技术选择打印区域。
7.页脚左侧打印的信息：＆08 = 8磅字体，＆D =日期，＆T =时间。
8.要从工作表中运行宏，请按Alt + F8，选择宏，然后单击“运行”。
或在工作表上添加一个按钮，并将宏附加到该工作表上。
9.注意：使用此技术可以添加无限数量的报告。