excelの印刷用マクロ。

質問

excelで分からない事があり困っています。

横がA～I列、縦がＢ列のB-1から文字が入力されている最後の行までの範囲を選択して、印刷するマクロを作りたいのですが、どうすればよろしいでしょうか。印刷したいシートには、オートフィルタが掛かっている場合もあります。その場合は、その状態のまま印刷出来る様にしたいです。
どなたか分かる方が居ましたら回答お待ちしています。
よろしくお願いします。

回答No.1

merlionXX · ベストアンサー

こんな感じでしょうか。

Sub test01()
Dim x As Long
With ActiveSheet
x = .Range("B1").End(xlDown).Row
.PageSetup.PrintArea = "$A$1:$I$" & x
.PageSetup.FitToPagesWide = 1
.PageSetup.FitToPagesTall = False
ActiveWindow.SelectedSheets.PrintOut
.PageSetup.PrintArea = ""
End With
End Sub

お礼

ありがとうございます。できました！！