枠線を含めて印刷（PageSetup.PrintGridlines プロパティ）

サイト管理人

9年前

PageSetup.PrintGridlines プロパティ

PageSetup.PrintGridlines プロパティ に True を設定すると、セルの枠線を含めて印刷することができます。値の取得および設定が可能で、ブール型（Boolean）の値を使用します。

【書式】

＜取得＞
object.PageSetup.PrintGridlines

＜設定＞
object.PageSetup.PrintGridlines = boolean

引数・戻り値

object ・・・対象となる Worksheet オブジェクト を指定します。
boolean ・・・ True を設定するとセルの枠線を印刷します。

PageSetup.PrintGridlines プロパティ使用例

サンプルVBAソース

　
Sub Sample_PrintGridlines()

    Dim w As Worksheet
    Set w = ActiveSheet
    
    '印刷範囲の設定
    w.PageSetup.PrintArea = "A1:K30"
    
    'セルの枠を印刷する設定
    w.PageSetup.PrintGridlines = True
    
    'ワークシートをプレビュー表示してから印刷
    w.PrintOut preview:=True

End Sub

Sub Sample_PrintGridlines()

Dim w As Worksheet

Set w = ActiveSheet

'印刷範囲の設定

w.PageSetup.PrintArea = "A1:K30"

'セルの枠を印刷する設定

w.PageSetup.PrintGridlines = True

'ワークシートをプレビュー表示してから印刷

w.PrintOut preview:=True

End Sub

PageSetup.PrintGridlines プロパティ

引数・戻り値

PageSetup.PrintGridlines プロパティ 使用例

サンプルVBAソース

実行結果

PageSetup.PrintGridlines プロパティ使用例