|
suika さん、こんにちわ。
>こんにちわ。suikaです。
>ですが、困ったことに、別のシート(データの行数が全部で約400行ある)で、
>この印刷範囲設定マクロを使用しますと、4ページ〜9ページの先頭行に、列
>ラベルが表示されてしまいます。
>このまま、印刷をかけますと、OA紙が無駄になるので、手動で印刷ページの
>指定を行っています。
実行するときに行数を判定してみては?
その1
単純に使用範囲で判定する場合
With Application.ActiveSheet
'シートのデータの最下行を印刷範囲の一番したとする
With .UsedRange
Rmax = .Cells(.Count).Row
End With
'
.PageSetup.PrintArea = "$A$1:$L$" & Rmax
End With
その2
データはないけど書式とか連番とかで使用範囲が必要な部分より大きい場合
With Application.ActiveSheet
'データが入っている最下位置を判断する基準列をBとした場合
Rmax = .Cells(.Rows.Count, "B").End(xlUp).Row
.PageSetup.PrintArea = "$A$1:$L$" & Rmax
End With
|
|