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

Excel-VBA印刷
調べたいExcel-VBAの使用例などキーワードを入力してください

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

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

スポンサーリンク

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

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

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

ヘッダーにフォント指定して日時を表示

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

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

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

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

VBA解説
  1. コマンドボタン1がクリックされたら
  2. 表示中のシートのページ設定をする
  3. ヘッダーの右端に斜字で「HGP明朝E」のフォントで作成日時を表示
  4. Withステートメント終了
  5. マクロ記録終了

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

ヘッダーに社名など好きな文字を表示

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

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

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

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

ヘッダー・フッターに2行で表示させる

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

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

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

VBA解説
  1. コマンドボタン1がクリックされたら
  2. 表示中のシートのページ設定をする
  3. ヘッダーの右端に斜字で「HGP明朝E」のフォントで作成日時を表示、改行して、とりっぷぼうると表示
  4. Withステートメント終了
  5. マクロ記録終了

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

スポンサーリンク

印刷関連VBA

スポンサーリンク
ボタン1つで作業完了へ
ちょっとの工夫でエクセル作業が飛躍的に早く終わったらいいなあ~と思いませんか? 面倒くさい作業よ!さようなら!

スポンサーリンク


印刷
参考になりましたらシェア宜しくお願い致します

山頂テラスデッキからの三段紅葉(2019年11月)

フリーパスって助成金つぎ込んでいいの?

コロナ禍のGo To トラベル以外にも助成金だらけでうらやましいね。

安くなったフリーパスで遊びに行きたいけど、給与も減って余裕ないよね。

Excel VBA