みんなの「教えて（疑問・質問）」にみんなで「答える」Q&Aコミュニティ

当方、Excel97、Excel2000を使っていますが、下記のようにしてセットしています。

下は、
　　Sheet1の印刷、プレビュー時に
　　フッタ左に
　　『ＭＳ Ｐ明朝、標準、フォントサイズ10』で（変更して下さい）
　　ブックのフルパスを設定する例です。

　　印刷、プレビュー時にこのモジュールが自動的に動いて、フッタをセットします。


ツール→マクロ→Visual Basic Editor でVBE画面に移り、 表示→プロジェクトエクスプローラでプロジェクトエクスプローラを表示します。プロジェクトエクスプローラのThisWorkbookをダブルクリック。出てきたコードウインドウに下記マクロをコピーして貼り付けます。

ここから
↓
Private Sub Workbook_BeforePrint(Cancel As Boolean)
　　With ActiveSheet
　　　　If .Name = "Sheet1" Then '// Sheet1のみ機能させる
　　　　　　.PageSetup.LeftFooter = "&""ＭＳ Ｐ明朝,標準""&10" _
　　　　　　　　　　　　　　　　　　　　& ThisWorkbook.FullName
　　　　End If
　　End With
End Sub
↑
ここまで


フッタ左：LeftFooter以外に
　　ヘッダ左：LeftHeader
　　ヘッダ中：CenterHeader
　　ヘッダ右：RightHeader
　　フッタ中：CenterFooter
　　フッタ右：RightFooter
が操作できます。

投稿日時 - 2004-03-05 12:10:01