スキルアップ・問題解決なら、モーグにおまかせ！

印刷するセル範囲をコード記述時の言語のA1形式の文字列で設定します。
ワークシートのページ設定においてのみ有効です。印刷範囲を解除するには、このプロパティに長さ0の文字列("")かFalseを設定してください。

  構文  Object.PrintArea     設定/取得


  設定項目              内容
  Object                PageSetupオブジェクト [省略不可]

次のサンプルは、アクティブシートのセルB2のアクティブセル領域を印刷するセル範囲とします。

Sub PrintAreaSamp1()

    With ActiveSheet.PageSetup
        .PrintArea = Range("B2").CurrentRegion.Address
        '---印刷範囲をB2のアクティブセル領域に設定(A1形式の文字列で指定)
        '.PrintArea = ""     '---印刷範囲の解除１
        '.PrintArea = False  '---印刷範囲の解除２
    End With

End Sub

●注意●
印刷時の行タイトル/列タイトルが設定されている場合、その部分も印刷範囲とともに印刷されます。