選択セルのみ印刷 ＶＢＡ

いつもお世話になっております

下記のコードを　実行すると
選択以外の範囲もプリントされてしまいます。
添付ファイルのように　表示されている
その下にもデータがあります。

Range("B3").CurrentRegion.Name = "strCellArea"


だけのやり方教えてくれませんでしょぅか


Sub Test1()
Dim p As Range
Dim strCellArea As String
Range("B3").CurrentRegion.Name = "strCellArea"
Set p = Range("strCellArea")

With ActiveSheet
.PageSetup.PrintArea = strCellArea '印刷範囲を設定
.PrintPreview
.PageSetup.PrintArea = ""
End With

End Sub

No.1 ベストアンサー 回答者： めぐみん_ 回答日時： 2021/11/19 21:57

.PageSetup.PrintArea = p.Address '印刷範囲を設定

この回答へのお礼

ありがとうございました。
問題なくいきました。

お礼日時：2021/11/19 22:04