エクセルVBAで印刷で用紙の上部右端に日付と社名を2行表示する方法

印刷する時に用紙の上部右端に自動的に表示させたいことありませんか？

今日の日付や会社名などは毎回入力するのは面倒なので、ページ設定のヘッダーにVBAを使って自動登録と自動表示をさせましょう。

ページ設定のヘッダーにVBAで内容登録

ここでは、ユーザーフォームに配置したコマンドボタンにVBAコードを書き、表示中のシートのページ設定（ActiveSheet）で記載しています。

シートを指定する場合はActiveSheetをWorkSheets(“シート名”)に変えるだけです。

VBAを使わずに直接ページ設定でもできますが、印刷するたびに設定確認が必要なのでVBAで自動的に修正して印刷できるようにしましょう。

まずはエクセルファイルの作成日付をヘッダーの右端に表示するように設定します。

作成日付をヘッダー右端に設定

Private Sub CommandButton1_Click()
With ActiveSheet.PageSetup
.RightHeader = “&””HGP明朝E””&I作成日時:&D-&T”
End With
End Sub

VBA解説

ここでは斜字（&I）にしましたが、下線ならば（&U）をすれば変更可能ですし、フォントも好きな字体に書き換えれば可能ですよ。

そして会社名や好きな文字列をヘッダーに表示させるならば、シンプルにこのようにVBAコードを書けば完成で、ここでは「とりっぷぼうる」とヘッダーに表示させます。

ヘッダーに「とりっぷぼうる」と表示させる

Private Sub CommandButton1_Click()
With ActiveSheet.PageSetup
.RightHeader = “とりっぷぼうる”
End With
End Sub

とてもシンプルになりますので、とても簡単です。

せっかく日時と社名をヘッダーにVBAを使って表示させることができたのだから、同時に1行ではなく2行に分けて（改行）して表示させていですよね。

ヘッダー・フッター2行表示方法

Private Sub CommandButton1_Click()
With ActiveSheet.PageSetup
.RightHeader = “&””HGP明朝E””&I作成日時:&D-&T” & vbCrLf & “とりっぷぼうる”
End With
End Sub

VBA解説

ヘッダーに2行表示させるのは、シンプルに改行を指示する「& vbCrLf &」を挟んだだけなのでとても簡単ですよ。

印刷関連VBA