セルのコメントを印刷(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 |
実行結果
関連記事
-
-
印刷設定(偶数ページのヘッダー・フッターを設定)OddAndEvenPagesHeaderFooter, EvenPage
偶数ページに別のヘッダーおよびフッターを設定 偶数ページのヘッダーおよびフッター …
-
-
ユーザー設定のビュー(CustomView オブジェクト)
ユーザー設定のビュー CustomView オブジェクトは、登録されている各ビュ …
-
-
ブックを保存する(Save メソッド)
ブックを保存する(Save メソッド) 既存のブックを上書き保存するには、Sav …
-
-
印刷設定(ヘッダー・フッターに画像を設定)Graphic オブジェクト
Graphic オブジェクト Graphic オブジェクト は、ヘッダーおよびフ …
-
-
ブック・シートの名前を取得・設定(Name プロパティ)
ワークブックの名前を取得 Name プロパティで、ワークブックの名前を取得します …
-
-
印刷のページ区切り(DisplayPageBreaks プロパティ)
DisplayPageBreaks プロパティ 印刷したあとや印刷プレビューを表 …
-
-
印刷の倍率(拡大/縮小)(PageSetup.Zoom プロパティ)
PageSetup.Zoom プロパティ PageSetup.Zoom プロパテ …
-
-
計算精度を設定する(PrecisionAsDisplayed プロパティ)
PrecisionAsDisplayed プロパティ PrecisionAsDi …
-
-
シート見出しの表示・非表示(DisplayWorkbookTabs プロパティ)
シート見出しの表示・非表示(DisplayWorkbookTabs プロパティ) …
-
-
ブックのファイル形式を調べる(FileFormat プロパティ)
ブックのファイル形式を調べる(FileFormat プロパティ) 指定したブック …
