エクセル ＶＢＡ 印刷改ページ 行数設定

環境：Excel2002です

印刷する行数は毎回異なります

改ページの条件は
(1)行１から１０は表題などが設定されているが６から１０行を行タイトルに設定する
(2)データ３０行毎に改ページする
　　
　　　例：データ数１００、行１から１０に表題があるので　最終行は１１０
　　　　　ページ設定　１ページ：行１から４０
　　　　　　　　　　　　　　　　　　　行１から１０の表題　プラス　データ数３０（行１１～４０）
　　　　　　　　　　　　　２ページ：行６から１０の行タイトル　プラス　データ数３０（行４１～７０）
　　　　　　　　　　　　　３ページ：行６から１０の行タイトル　プラス　データ数３０（行７１～１００）
　　　　　　　　　　　　　４ページ：行６から１０の行タイトル　プラス　データ数１０（行１０１～１１０）

印刷範囲の設定はネット上に多数紹介されていますが
私の設定したい方法は見つけることができませんでした

思考錯誤してみましたが、私のスキルでは無理でした
よろしくご教示願います

No.1 ベストアンサー 回答者： keithin 回答日時： 2013/03/26 00:40

ご相談に書かれていることを手順を追って行うと

１．印刷する行数（最終行）を調べる
２．タイトル行を設定する
３．所定の行に改ページを打つ
４．印刷範囲を設定する
５．印刷する
というだけの作業です。


実際には
事前準備：タイトル行を設定する
事前準備：所定の３０行ごとに、データの有無に関係なしに改ページを埋めておく
　　　→挿入メニューの改ページ
マクロの仕事：最終行を調べ、印刷範囲を設定して印刷する

だけで十分です。

作成例：
sub macro1()
　dim LastRow as long
’仮にＡ列で最終行を調べられるとして
　lastrow = range("A65536").end(xlup).row
’仮にＡ：Ｇ列を印刷するとして
　activesheet.pagesetup.printarea = "$A$1:$G$" & lastrow
　activesheet.printout
end sub



もしも手抜きで何も手を動かして準備とかしたくないというなら

sub macro2()
　dim LastRow as long
　dim r as long
　lastrow = range("A65536").end(xlup).row
　activesheet.resetallpagebreaks
　for r = 41 to lastrow + 1 step 30
　　activesheet.hpagebreaks.add before:=cells(r, "A")
　next r
　activesheet.pagesetup.printtitlerows = "$6:$10"
　activesheet.pagesetup.printarea = "$A$1:$G$" & lastrow
　activesheet.printout
end sub

といった具合に、丁寧に書いていけば出来ます。

この回答へのお礼

２通りも回答いただきありがとうございました
無事動作確認できました

それにしても、これだけエクセルを使っていながら
『挿入メニューの改ページ』の機能は知りませんでした

日々の探求が足りないんですね。反省します。

お礼日時：2013/03/26 12:44