セルのコメントを印刷(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 |
実行結果
関連記事
-
-
Excel を全画面表示(DisplayFullScreen プロパティ)
DisplayFullScreen プロパティ DisplayFullScree …
-
-
ワークシートの追加・削除(Add メソッド・Delete メソッド)
新しいワークシートを作成 Add メソッドで、新しいワークシートを指定した場所に …
-
-
ワークシートの数を数える(Count プロパティ)
Count プロパティ 指定したWorksheets コレクションやSheets …
-
-
行列の見出しの表示・非表示(DisplayHeadings プロパティ)
DisplayHeadings プロパティ 行と列の見出しの表示・非表示を設定お …
-
-
印刷時、シート内のエラーをどう扱うかを設定(PrintErrors プロパティ)
PageSetup.PrintErrors プロパティ PageSetup.Pr …
-
-
印刷の先頭のページ番号を設定(PageSetup.FirstPageNumber プロパティ)
PageSetup.FirstPageNumber プロパティ PageSetu …
-
-
印刷する用紙の向きを設定(PageSetup.Orientation プロパティ)
PageSetup.Orientation プロパティ PageSetup.Or …
-
-
ブックのコピーを保存(SaveCopyAs メソッド)
SaveCopyAs メソッド SaveCopyAs メソッド は、現在開いてい …
-
-
数式を表示(DisplayFormulas プロパティ)
数式を表示(DisplayFormulas プロパティ) セルに数式が入力されて …
-
-
ブックが共有モードか確認する(MultiUserEditing プロパティ)
ブックが共有モードか確認する(MultiUserEditing プロパティ) 共 …