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

質問

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

回答No.3

ham_kamo

> ページ番号が（１０．２０．１１．２２）と印刷されました。

えーと、これは原因がつかめないですね。。。こちらでは１，２，３，４と出てきているのですが。。。

Excelのバージョンの違いかな？当方はExcel2000ですが、そちらのバージョンは何でしょうか？（ヘルプ＞バージョン情報で出てきます）

ちょっとデバッグコーディングを入れて、その他も少し細工した修正版にしたので、それに置きかえてみていただけますか？（肝心のページ設定箇所はいじってないので、ページの表示は変わらないのですが、その原因を探るため）

実行すると部数を入力した後、「このシートのページ数は○であってますか？」というダイアログが出ます。「はい」を押すとそのまま処理を続行しますが、「いいえ」を押すと処理を中止します。そこで、そのページ数があっているかどうかを確認していただきたいのです。

上記のページ数が間違っていても、とりあえず「はい」を押して印刷してみてください。テストのために右のフッターにもページ数が入るようにしています。これは部数のコントロールをしていなくて、単に実際のページ＋１を表示することにしています。なのでそこは２，３，２，３となるはずですが、そこの表示がどうなるか確認していただけますか？

なお、いきなり印刷ではなく、最初に印刷ダイアログを出すようにしました。１部目は実際に印刷しなくてもそこから印刷プレビューで確認できます。（ただし１部目だけで、２部目以降は直接印刷されてしまいますが）

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 = ActiveSheet.HPageBreaks.Count　'横の改ページ数取得
　V_Break = ActiveSheet.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

　If MsgBox("このシートのページ数は" & P_Page & "であってますか？", _
　vbQuestion + vbYesNo) = vbNo Then Exit Sub
　For i = 1 To n
　　ActiveSheet.PageSetup.RightHeader = "&P+" & (i - 1) * P_Page
　　ActiveSheet.PageSetup.RightFooter = "&P+1"
　　If i = 1 Then
　　　Application.Dialogs(xlDialogPrint).Show
　　Else
　　　ActiveSheet.PrintOut
　　End If
　Next
End Sub

お礼

返信ありがとうございます。
バージョンはExcel2007を使用しています。
印刷してみましたが、１０．２０．１２．２２とでました。
２ページ２部印刷でダイアルログは「このシートのページ数は２であってますか？」とでました。
これは、新規ページで試した結果ですが、実際に印刷したいページは２ページ目が他ページから図のリンク張り付けを行っております。
その結果、ダイアルログは「このシートのページ数は６であってますか？」となり、ページ番号は１０．２０．１０．２０．１６．２６とでました。
お手数ですが宜しくお願いします。