印刷設定

Sub 列抽出()
Dim r As Range
r = Range("a1").CurrentRegion.SpecialCells(xlCellTypeVisible)←の部分のやり方がわからない
表示されている部分だけを印刷したい
がエラー

With Sheets(5)
.PageSetup.Orientation = xlLandscape
.PageSetup.PrintArea = r
.PrintPreview
End With

End Sub

No.1 回答者： ママチャリ 回答日時： 2018/04/01 17:21

エラーの原因ですが、オブジェクト変数（ｒ）に、Rangeオブジェクトを代入するには、Setステートメントが必要ですが、それが抜けています。

それ以外では・・・
非表示の部分って、そもそも印刷の対象にならないので、SpecialCells(xlCellTypeVisible)って、意味ないのでは？
PrintAreaへの設定は、"A1:D15"のように文字列型で範囲を代入する必要があります。

この回答へのお礼

ありがとうござました。

お礼日時：2018/04/01 17:41