Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

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

2015/10/02

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

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

　

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 プロパティ, VBA基本, Worksheet オブジェクト, エクセルVBA, ブック・シートの操作, 印刷

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 0 を表示するかどうかを設定（DisplayZeros プロパティ）

DisplayZeros プロパティ DisplayZeros プロパティに、T …

: ページ数に合わせて印刷（FitToPagesTall, FitToPagesWide）

PageSetup.FitToPagesTall プロパティ PageSetup …

: 指定された情報をブックから削除（RemoveDocumentInformation メソッド）

RemoveDocumentInformation メソッド指定された種類の情 …

: 白黒印刷（PageSetup.BlackAndWhite プロパティ）

PageSetup.BlackAndWhite プロパティ PageSetup. …

: 共有ファイルを開いているユーザー情報を取得（UserStatus プロパティ）

共有ファイルを開いているユーザー情報を取得 UserStatus プロパティは、 …

: 行列の見出しの表示・非表示（DisplayHeadings プロパティ）

DisplayHeadings プロパティ行と列の見出しの表示・非表示を設定お …

: ウィンドウの状態を取得・設定（WindowState プロパティ）

ウィンドウの状態を取得・設定（WindowState プロパティ） Window …

: ワークシートを参照する（Sheets プロパティ）

Sheets プロパティ Sheets プロパティは、Sheets コレクション …

: PDF または XPS 形式で出力（ExportAsFixedFormat メソッド）

ExportAsFixedFormat メソッドブックやシートの内容を PDF …

: 新しいウィンドウを開く（NewWindow メソッド）

NewWindow メソッド NewWindow メソッドで、任意のブックのコピ …

PREV: 行列番号を含めて印刷（PageSetup.PrintHeadings プロパティ）
NEXT: セルのコメントを印刷（PageSetup.PrintComments プロパティ）