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

質問

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

回答No.4

ham_kamo

すみません、もう１つ試していただきたいことがあります。

新規のブックを開き、
「ツール」＞「マクロ」＞「新しいマクロの記録」
を選択してください。
「マクロの記録」ダイアログが出るので、マクロ名はそのままMacro1で、「マクロの保存先」は「作業中のブック」を選択し、「説明」のところはユーザー名とか出てしまうので削除して、OKを押してください。

その状態で、
「ファイル」＞「ページ設定」＞「ヘッダー/フッター」の画面を開き、「ヘッダーの編集」を押して、右側のヘッダーのテキストボックスを選択し、ページ数を入力する＃マークのボタンを押してください
&[ページ番号]と入ると思うので、その後ろに+1と入力し、
&[ページ番号]+1
と入力された状態にしてOKを押し、ページ設定の画面を閉じます。
マクロの記録の小さな画面の■を押して記録を停止してください。

その状態で適当にセルに何か入力して、印刷プレビューで右上のヘッダーにどのように表示されるか教えてください。（１ページ目だと、２と表示されるはず）

それから、Alt+F11を押すとVBAの画面が開くので、左のVBAProject(Book1)という新規のブックの下の、標準モジュールの中にあるModule1をダブルクリックしてください。右の画面に記録したマクロが表示されます。そのマクロを補足欄に貼り付けていただけますか？

補足

お手数かけます。Module1のマクロです。宜しくお願いします。

Sub Macro1()
'
' Macro1 Macro
'

'
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = "&P+1"
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.708661417322835)
.RightMargin = Application.InchesToPoints(0.708661417322835)
.TopMargin = Application.InchesToPoints(0.748031496062992)
.BottomMargin = Application.InchesToPoints(0.748031496062992)
.HeaderMargin = Application.InchesToPoints(0.31496062992126)
.FooterMargin = Application.InchesToPoints(0.31496062992126)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = True
.EvenPage.LeftHeader.Text = ""
.EvenPage.CenterHeader.Text = ""
.EvenPage.RightHeader.Text = ""
.EvenPage.LeftFooter.Text = ""
.EvenPage.CenterFooter.Text = ""
.EvenPage.RightFooter.Text = ""
.FirstPage.LeftHeader.Text = ""
.FirstPage.CenterHeader.Text = ""
.FirstPage.RightHeader.Text = ""
.FirstPage.LeftFooter.Text = ""
.FirstPage.CenterFooter.Text = ""
.FirstPage.RightFooter.Text = ""
End With
End Sub