カスタムレポートマネージャの作成
VBAマクロを通常のモジュールシートに追加することで、カスタムの印刷レポートを作成できます（マクロはwww.exceltip.comからダウンロードできます）。
カスタム印刷レポートの構造：
{空} 2。列A：この列には1から3までの数字が含まれています：シートから印刷、範囲名で印刷、またはカスタムビューから印刷（推奨）。
3.列B：シート名、範囲名、またはカスタムビュー名を入力します。
4.列C：フッターに印刷するページ番号を入力します。
マクロはシートから印刷し、ページ番号、ワークブック名、パスアドレス、シート名、印刷日時などの必要な情報をフッターに自動的に追加します。
サブPrintReports（）
Dim NumberPages As Integer、PageNumber As Integer、i As Integer Dim ActiveSh As Worksheet、ChooseShNameView As String Dim ShNameView As String、cell As Range Application.ScreenUpdating = False Set ActiveSh = ActiveSheet Range（ “a2″）。Select For Each cell In Range （Range（ “a2″）、Range（ “a2″）。End（xlDown））
ケースセルを選択します。値ケース1シート（ShNameView）。ケース2を選択します。Application.GoToリファレンス：= ShNameViewケース3ActiveWorkbook.CustomViews（ShNameView）.Show End Select WithActiveSheet.PageSetup。 CenterFooter.PageNumber .LeftFooter = ActiveWorkbook.FullName＆ “”＆ “＆A＆T＆D”
End With ActiveWindow.SelectedSheets.PrintOut Copies：= 1 Next i ActiveSh.Select Application.ScreenUpdating = True End Sub 5。マクロのForEachループにより、A2から始まる列Aのセルごとに個別の出力が発生します。
6.ループでは、ケースの選択手法を使用して印刷領域が選択されます。
7.フッターの左側に印刷される情報：＆08 = 8ポイントのフォント、＆D =日付、＆T =時間。
8.シートからマクロを実行するには、Alt + F8を押し、マクロを選択して、[実行]をクリックします。
またはシートにボタンを追加し、マクロを添付します。
9.注：この手法を使用して、無制限の数のレポートを追加します。