即効テクニック |
印刷時、フッターにブック名と「シート位置/総シート数」というページ番号を入れるサンプルマクロを紹介します。 ブックに3つシートがあれば、1シートめには「ブック名 1/3」、2シートめには「ブック名 2/3」と入るわけです。 サンプルは印刷プレビューで表示します。 標準モジュールに次のマクロを作成してください。
Sub Sample() Dim myWSCnt As Integer Dim n As Integer myWSCnt = ActiveWorkbook.Worksheets.Count '(1) For n = 1 To myWSCnt With Worksheets(n).PageSetup .CenterFooter = _ "&F (" & n & "/" & myWSCnt & "ページ)" '(2) .FirstPageNumber = 1 End With Next n ActiveWorkbook.PrintPreview End Sub
For...Nextステートメントで全シートに対して、ブック名を表す「&F」と「シート位置/総シート数((1)で取得している)」と文字列を組み合わせた 内容をフッターに設定しています。 (2)のCenterFooterプロパティを使うと、中央に配置するフッターを設定することができます。 シート内でページ番号を表示する場合は「.CenterFooter = "&F page: &P"」とすれば、シート内の改ページごとに「ブック名 Page:1」「ブック名 Page:2」・・・ と表示されます。 「&F」「&P」は、“書式コード”と呼ばれるものです。その他の書式コードに関しては、ヘルプの『ヘッダーとフッターに指定できる書式コード』を参照してください。