セルのコメントを印刷（PageSetup.PrintComments プロパティ）
PageSetup.PrintComments プロパティ
PageSetup.PrintComments プロパティ で、セルのコメントをどのように印刷するかを設定することができます。値の取得および設定が可能で、XlPrintLocation 列挙型の定数を使用します。
＜取得＞
object.PageSetup.PrintComments
＜設定＞
object.PageSetup.PrintComments = const
引数・戻り値
- object ・・・ 対象となる Worksheet オブジェクト を指定します。
- const ・・・ コメントの印刷方法を表す XlPrintLocation 列挙型 の定数またはその値を指定します。
定数 値 内容 xlPrintInPlace 16 コメントは、ワークシートが挿入された位置と同じ場所に印刷されます xlPrintSheetEnd 1 コメントは、ワークシートの末尾にまとめて印刷されます xlPrintNoComments -4142 コメントは印刷されません
PageSetup.PrintNotes プロパティ
PageSetup.PrintNotes プロパティ でも、セルのコメントを印刷するかどうかを設定することができます。値の取得および設定が可能で、ブール型（Boolean）の値を使用します。
＜取得＞
object.PageSetup.PrintNotes
＜設定＞
object.PageSetup.PrintNotes = boolean
引数・戻り値
- object ・・・ 対象となる Worksheet オブジェクト を指定します。
- boolean ・・・ True を設定すると、コメントをワークシートの末尾にまとめて印刷します。（PageSetup.PrintComments プロパティ に、XlPrintLocation 列挙型 定数の xlPrintSheetEnd を指定した時と同じ結果になります）
PageSetup.PrintComments プロパティ 使用例
サンプルVBAソース
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
Sub Sample_PrintComments() Dim w As Worksheet Set w = ActiveSheet 'コメントをワークシートの末尾に表示 w.PageSetup.PrintComments = xlPrintSheetEnd 'ワークシートをプレビュー表示してから印刷 w.PrintOut preview:=True End Sub |
実行結果
関連記事
-
-
ブックを保存する（Save メソッド）
ブックを保存する（Save メソッド） 既存のブックを上書き保存するには、Sav …
-
-
印刷の倍率（拡大／縮小）（PageSetup.Zoom プロパティ）
PageSetup.Zoom プロパティ PageSetup.Zoom プロパテ …
-
-
Excel を全画面表示（DisplayFullScreen プロパティ）
DisplayFullScreen プロパティ DisplayFullScree …
-
-
枠線を含めて印刷（PageSetup.PrintGridlines プロパティ）
PageSetup.PrintGridlines プロパティ PageSetup …
-
-
並べて比較（CompareSideBySideWith,SyncScrollingSideBySide,BreakSideBySide）
並べて比較（CompareSideBySideWith メソッド） Compar …
-
-
印刷のページ区切り（DisplayPageBreaks プロパティ）
DisplayPageBreaks プロパティ 印刷したあとや印刷プレビューを表 …
-
-
印刷実行前に総ページ数を取得（ExecuteExcel4Macro メソッド）
印刷の総ページ数を取得（ExecuteExcel4Macro メソッド） Exc …
-
-
ユーザー設定のビュー（CustomViews プロパティ）
ユーザー設定のビュー CustomViews コレクションは、ユーザー設定ビュー …
-
-
ブックの変更が保存されているかを確認する（Saved プロパティ）
ブックの変更が保存されているかを確認する（Saved プロパティ） Saved …
-
-
選択されているシートを参照する（SelectedSheets プロパティ）
SelectedSheets プロパティ 選択されているすべてのシートをあらわす …