excelシートの部数印刷でのページ番号表示

質問

初めまして。どうしてもわかないので皆様にお世話になれればありがたいと思います。
ＥＸＣＥＬのページ番号ですが、部数印刷した場合でも連番で表示される機能もしくはＶＢＡなどありますか？
　１シート１ページを１０枚印刷した場合にページ番号が連番表示されるということです。
　お力を貸してください。宜しくお願いします。

回答No.2

ham_kamo

No,1です。

> (1)ページ番号表示位置を右上の場合
> (2)１シート２ページの部数印刷で連番にした場合（１．２．１．２．を１．２．３．４．に）

はわかったので、そのように修正してみましたが、

> もしくは、２シート１ページを部数印刷で連番にした場合・・・

というのはどういう場合でしょう。各シートをの印刷サイズを半分に縮小して、複数シートを１枚に２ページ分印刷する、ということでしょうか。そうだとすると、それは通常は印刷するときにプリンタの詳細設定で指定するので、ちょっとややこしくなりそうです。

とりあえず、(1)(2)に対応したマクロです。上記の「２シート１ページを部数印刷」の部分は私の認識であっているか、補足をお願いします。

Sub ページ数をつけて印刷()
　Dim n As Variant, i As Integer
　Dim H_Break As Integer
　Dim V_Break As Integer
　Dim P_Page As Integer

　n = InputBox("印刷部数を入力してください")
　If n = "" Then Exit Sub

　H_Break = Sheet1.HPageBreaks.Count　'横の改ページ数取得
　V_Break = Sheet1.VPageBreaks.Count　'縦の改ページ数取得

　If V_Break = 0 Then
　　P_Page = H_Break + 1
　Else
　　H_Break = H_Break + 1
　　V_Break = V_Break + 1
　　P_Page = H_Break * V_Break
　End If

　For i = 1 To n
　　ActiveSheet.PageSetup.RightHeader = "&P+" & (i - 1) * P_Page
　　ActiveSheet.PrintOut
　Next
End Sub

お礼

ham_kamo さん　早速の返信ありがとうございます。

修正していただいたマクロは趣旨はバッチリ合ってます。

ただ。。。一つだけ・・・

１シート２ページを２部、試し印刷したところ、ページ番号が（１０．２０．１１．２２）と印刷されました。

これが治れば、長年の懸案が解決します。是非お願いします。