エクセル表の自動ページ印刷

エクセル表を縦方向、横方向とも複数ページに印刷するとき自動ページで縦方向の印刷には１－１～１－１０（縦方向に１０ページある場合）次の列の印刷には２－１～２－１０と表示したいのですが良い方法がありますでしょうか？。頭の１－、２－はタイトル行のセルに打ち込んでおけば出来るのですが、後のページを自動にすると２列めからは１１番から始まります。２列目の一番上のページから又１～１０と表示したいのです。説明がわかりづらいとおもいますがよろしくお願いします。

No.1 ベストアンサー 回答者： imogasi 回答日時： 2002/12/26 10:15

なかなか回答が出ないので、私も操作による設定や勿論関数式では出来ないと思います。

それでＶＢＡで出来そうという回答例を上げます。ご参考に。
Sub test01()
m = 1: n = 1 'ページ番号の初期設定
Worksheets("sheet1").Activate
For n = 1 To 2 '縦２枚印刷
For m = 1 To 3 '横３枚印刷
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With

ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = n & "-" & m
.RightFooter = ""
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlOverThenDown
.BlackAndWhite = False
.Zoom = 100
End With
Worksheets("sheet1"). _
Range(Cells((n - 1) * 56 + 1, (m - 1) * 9 + 1), Cells(n * 56, m * 9)). _
PrintOut Copies:=1, Collate:=True
Next m
Next n
End Sub
（結果）
私はテストでＡ－Ｕ列、１－７１行の表を作り、Ａ４用紙に印刷しました。フータに1-1,1-2,1-3,2-1,2-2,2-3が出て来ました。
（説明）
（１）m横ページ数
　　　n縦ページ数を表す
（２）mは３まで繰り返していますが、今回はＵ列までの表だったものですから、目視で３枚目までといれました。
印刷プレビューでＡ－Ｉ、ＪーＲ、Ｓ以後になることが
判ったので、それを取り入れています。
最終列を捉えられるので、１枚が何列分はいるか判れば
横何枚になるかは計算できますが、今回は複雑にしないため略しています。
またmは２まで繰り返していますが、縦は１－５６、５７－以後になるのでそれも取り入れています。
最終行も捉えられるので、１枚が行分はいるか判れば
縦何枚になるかは計算できますが、今回は複雑にしないため略しています。
（２）フッタにn-mの形でページ数印刷しています。
.CenterFooter = n & "-" & m
（３）Ｚ型に印刷するため印刷方向を.Order = xlOverThenDownにしています。
（４）全体的に、印刷のマクロに記録を取れば、上記と
似たものが出ますので参考になります。一部削除したのと
（２）と（３）と（５）の部分を改変しています。
（５）（４）のようにＳｈｅｅｔ全体を印刷でなく、
Ｓｈｅｅｔ１の印刷する範囲を指定してRange(Cells((n - 1) * 56 + 1, (m - 1) * 9 + 1), Cells(n * 56, m * 9)). 印刷しています。PrintOut Copies:=1, Collate:=True

この回答へのお礼

どうも有り難うございます。正月休みに回答頂いた内容で試してみます。私にはレベルが高すぎて無理かもしれませんが頑張ってみます。

お礼日時：2002/12/26 21:42