'印刷範囲の設定
ActiveSheet.PageSetup.PrintArea
=
_
"$A$1:$J$"
&
Range
(
"B50000"
).
End
(
xlUp
).
Row