|
▼アキ さん:
>毎日更新するシートがあります。
>シート1のA1からH500まで、数式が入っています。
>シート2からセル参照してあり、日によってゼロの日はありませんが5から400前後(5から400行)の入力になります。
>今現在は印刷をかけると入力された数量にかかわらず当然全ページ(14ページ)印刷されます。
>ここで質問なんですが、その日の登録された数量によって印刷のページ数を操作できるでしょうか?
>例えば1ページ50行として、入力が100行だったら2ページ、入力が235行だったら5ページとなるようにです。
データは「シート2」というシートのB列に入力され、1行目はタイトル行だとして判定する場合
Sub TEST()
Dim Rmax As Long, Pcount As Integer
'データの行数を判定
Rmax = Worksheets("シート2").Range("B500").End(xlUp).Row - 1
If Rmax <= 0 Then
MsgBox Rmax, vbExclamation, "行数不正"
Else
'印刷するページ数の計算、1ページは50行
Pcount = (Rmax - 1) \ 50 + 1
'必要なページだけ印刷
Worksheets("シート1").PrintOut from:=1, to:=Pcount
End If
End Sub
こんな感じです。
|
|