VBA 印刷範囲 設定 EXCEL

質問

列を参照して、その列にデータが入っている最後のセルを含む印刷範囲を自動で設定できるマクロを作りたいと思っています。質問で検索していましたが、これといったものが見つからず、誰か教えてください。

回答No.3

merlionXX · ベストアンサー

> 列はD列目までです。可能でしょうか？

ということは、行は１行目からA列の最終入力行まで、列はA列からD列までの固定ということですね？

Sub test02()
　　ActiveSheet.PageSetup.PrintArea = "$A$1:$D$" & Cells(Rows.Count, "A").End(xlUp).Row
End Sub

で、いかがでしょう？

お礼

できました？

ありがとうございます

回答No.2

merlionXX

> たとえば、A列を見て３行目までを印刷範囲にするといったかんじです。

わかりません。
印刷範囲は行だけでなく、列も必要です。
行はA列の最終行までとして、列はどこの最終列を指定すればいいのですか？

補足

列はD列目までです。可能でしょうか？

回答No.1

merlionXX

質問を誤解しているかもしれませんが、仮に参照する列がE列だとすると、

Sub test01()
ActiveSheet.PageSetup.PrintArea = ""
ActiveSheet.PageSetup.PrintArea = "$A$1:" & Cells(Rows.Count, "E").End(xlUp).Address
End Sub

でいけると思います。

お礼

すみません表現がおかしかったみたいです。
　ＡＢＣＤ
１○×　□
２○×△
３○　△□
４
５
たとえば、A列を見て３行目までを印刷範囲にするといったかんじです。
わかりにくくてすみません