マクロ vba 印刷

質問

エクセルの印刷に関するマクロで教えて下さい。今ページ設定のシート設定で１～８行までを固定しています。Ｂ列の９～４４行までが必要に応じて数字が入力されます。そして２ページ目の５０～８５行までが同じく必要に応じて数字が入力されます。３ページ目の９１行～１２６行までが又同じく必要に応じて数字が入力されます。このように１０ページまであります。つまり固定した１～８行までを見出しに下に表がずらーっとあります。ここで印刷をする際に、数字の入ったページまでを印刷するマクロを作りたいのです。普通に印刷すると１０ページ印刷されてしまいます。例えば１２行目まで入力があるならば、１ページだけを印刷。９８行目まで入力があるならば、３ページ目までを印刷といった具合です。ちなみに途中数字が空白になる事はありません。詳しい方いらっしゃいましたら、お手数ですが教えて頂けませんでしょうか。宜しくお願いします。

回答No.2

hige_082 · ベストアンサー

考え方を変えてみませんか
印刷を中心に考えるのでは無く
データを中心に考えませんか、応用範囲が広がりますよ
まず、印刷のフォーマットを１ページ分だけ作ります
次にデータを一覧表で作成します

マクロの作成です
データを１行目から見ていきます
データがあれば印刷フォーマットの９行目へコピー
次の行へ
これをデータが無くなるか、印刷フォーマットの４４行目に行くまで繰り返し、印刷を行う

まだ、データがあれば
データは続きの３６行目から
印刷フォーマットは９行目～４４行目のデータを消去して９行目から

後は上の処理をデータが無くなるまで繰り返す
この処理にすれば、１枚であろうが２０枚、３０枚に印刷枚数が増えても、この処理で対応することが出来ます

説明が下手でごめんなさい

回答No.1

nda23

先ず、有効な行数を求めます。Cells(9,2).CurrentRegion.Rows.Count
これはB9セルを含む列で、B列が空欄でないものの行数が得られます。
1～8行目も対象です。もし、B1～B8が空欄でない場合は上記行数から8を減じます。
これを36で割る（端数は切り上げ）とページ数が得られるので、PrintOutメソッドのToパラメータに指定すれば良いでしょう。