Home » エクセルマクロ・Excel VBAの使い方 » ページ設定・PageSetup » コメントをシート内に表示して印刷プレビューするマクロ

コメントをシート内に表示して印刷プレビューするマクロ

対象:Excel2007, Excel2010, Excel2013

「excel vba 印刷プレビュー コメント 画面表示」
という検索で、このサイト・インストラクターのネタ帳へのアクセスがありました。

Excelでは[ページ設定]ダイアログ-[シート]タブ-[印刷]-[コメント]欄で、

コメントをシート内に表示して印刷プレビューするExcelマクロ

コメントをどう印刷するのかを指定できます。

[ページ設定]ダイアログ-[シート]タブ-[印刷]-[コメント]欄で「シートの末尾」を選択するとシートとは別にコメントだけを印刷でき、「画面表示イメージ」では画面に表示されているのと同じように印刷することができます。

[スポンサードリンク]

「excel vba 印刷プレビュー コメント 画面表示」
という検索キーワードは、「画面表示イメージ」を指定したのと同じ状態で印刷プレビューするVBA(Visual Basic for Applications)のコードを探していたのでしょう。

コメントをシート内に表示して印刷プレビューするサンプルマクロ

以下のようなマクロで、コメントをシート内に表示した状態で印刷プレビューすることができます。


Sub コメントをシート内に表示して印刷プレビュー()
 Application.DisplayCommentIndicator _
  = xlCommentAndIndicator

 With ActiveSheet
  .PageSetup.PrintComments = xlPrintInPlace
  .PrintPreview
 End With
End Sub

サンプルマクロの解説

まず、ApplicationオブジェクトのDisplayCommentIndicatorプロパティに、定数・xlCommentAndIndicatorを指定することで、
  Application.DisplayCommentIndicator _
   = xlCommentAndIndicator
すべてのコメントをワークシート上に表示します。

[ページ設定]ダイアログ-[シート]タブ-[印刷]-[コメント]欄で「画面表示イメージ」を選択したのと同じように、PageSetupオブジェクトのPrintCommentsプロパティに、定数・xlPrintInPlaceを指定して、
  With ActiveSheet
   .PageSetup.PrintComments = xlPrintInPlace

印刷プレビューをしています。
   .PrintPreview

[スポンサードリンク]

Home » エクセルマクロ・Excel VBAの使い方 » ページ設定・PageSetup » コメントをシート内に表示して印刷プレビューするマクロ

TrackBack:0

TrackBack URL

Home » エクセルマクロ・Excel VBAの使い方 » ページ設定・PageSetup » コメントをシート内に表示して印刷プレビューするマクロ

Copyright © インストラクターのネタ帳 All Rights Reserved.

.