印刷範囲の設定・解除（PageSetup.PrintArea プロパティ）

サイト管理人

9年前

PageSetup.PrintArea プロパティ

印刷範囲を設定するには、PageSetup オブジェクト の PrintArea プロパティ に、セル範囲（ A1 形式の文字列）を指定します。設定をクリアするには、””（空文字）を指定します。PageSetup.PrintArea プロパティ は、取得および設定が可能です。

【書式】

＜取得＞
object.PageSetup.PrintArea

＜設定＞
object.PageSetup.PrintArea = string

引数・戻り値

object ・・・対象となる Worksheet オブジェクト を指定します。
string ・・・印刷範囲を A1 形式の文字列で設定します。印刷範囲をクリアする場合は、””（空文字）を指定します。

PageSetup.PrintArea プロパティ使用例

サンプルVBAソース

　
Sub Sample_PageSetupPrintArea()

    Dim w As Worksheet
    Set w = ActiveSheet
    
    With w
        
        '印刷範囲を設定
        .PageSetup.PrintArea = Range("B3").CurrentRegion.Address
        
        '印刷プレビューを表示
        .PrintPreview
    
    End With

End Sub

Sub Sample_PageSetupPrintArea()

Dim w As Worksheet

Set w = ActiveSheet

With w

'印刷範囲を設定

.PageSetup.PrintArea = Range("B3").CurrentRegion.Address

'印刷プレビューを表示

.PrintPreview

End With

End Sub

実行結果

サンプルVBAソース実行前

実行後

PageSetup.PrintArea プロパティ

引数・戻り値

PageSetup.PrintArea プロパティ 使用例

サンプルVBAソース

実行結果

PageSetup.PrintArea プロパティ使用例