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

質問

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

回答No.1

ham_kamo · ベストアンサー

これは標準の印刷機能では難しいですね。（できるかもしれませんが）

連番でページ番号を振りながら印刷するマクロを組んでみました。
Alt+F11でVBAの画面を開き、左側のツリーからブック名を選択し、右クリックから「挿入」＞「標準モジュール」を選択して、右の画面に以下のマクロをコピーして貼り付けてください。

Sub ページ数をつけて印刷()
　Dim n As Variant, i As Integer
　n = InputBox("印刷部数を入力してください")
　If n = "" Then Exit Sub
　For i = 1 To n
　　ActiveSheet.PageSetup.CenterFooter = i
　　ActiveSheet.PrintOut
　Next
End Sub

Alt+F11でExcelの画面に戻ってAlt+F8からマクロを実行してみてください。実行すると印刷部数を入力するダイアログが出るので、最初は１などを入力して試してみてください。キャンセルを押したり、何も入力せずにOKを押したら実行を中止しします。

注意点ですが、このマクロを実行して印刷部数を入力すると、印刷ダイアログは出てこずにいきなり印刷が始まります。ページ設定やプリンタの設定は、あらかじめファイルメニューで行っておいてから、マクロを実行してください。

なお、このマクロでは中央のフッターにページ番号を表示していますが、他の場所にしたい、フォントや大きさを希望の大きさに調節したい、という場合はそのように修正するので補足をお願いします。

お礼

ありがとうございます。すばらしいの一言です。

お言葉に甘えていくつか希望を追加しますが・・・

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

是非、お力をお貸しください。　お願いします。

回答No.6

ham_kamo

だめでしたか…。
手元にExcel2007がないため、ネットでそれらしき情報を検索してみたのですが、まだ発売されて間もないためか情報が少なく、ちょっとこれ以上は原因追及ができない状態になってしまいました。

とりあえず、「部数」－「ページ数」の形式で右上に表示するようにしてみました。以下のマクロと差し替えていただけますか？

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

　For i = 1 To n
　　ActiveSheet.PageSetup.RightHeader = CStr(i) & " - &P"
　　If i = 1 Then
　　　Application.Dialogs(xlDialogPrint).Show
　　Else
　　　ActiveSheet.PrintOut
　　End If
　Next
End Sub

お礼

ありがとうございます。
部数－ページは正常にできました。
感激しております。

山間部のＪＡで働いている者ですが、Visual Basic を知っている者が皆無な為、業務効率で大変苦労しておりました。
ham_kamoさんのお陰で一つ問題解決致しました。
ですがまだまだ、課題は山積みです。
在庫管理の効率化、独自のＨＰの作成、ネット販売・・・・ＰＣ頼りの業務が未だ、整備されていません。
もし、お暇がありましたら御指南ください。宜しくお願いします。
ほんとにありがとうございました。

回答No.5

ham_kamo

補足拝見しました。
Excel2007をお使いなのですね。こちらはExcel2000なので、やはりバージョンの違いによるものかな…。ちょっと調べてみます。

記録していただいたマクロを見る限り、マクロの書式はExcel2007でも変わってないようなので、うまくいくはずなのですが…。とりあえず、ちょっとだけ変えてみたので、差し替えて試していただけますか？

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

　For i = 1 To n
　　ActiveSheet.PageSetup.RightHeader = "&P+" & CStr((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がないため、調べてもわからないときは、すみませんがギブアップするかもしれません。ただ、ページを「通し番号」でなく、
１－１
１－２
２－１
２－２
のように、「部数」－「ページ数」のようにすることはできるかもしれません。これではまずいでしょうか？

あと、左記のマクロでは動作確認用に右下にも部数に関係なく「ページ数＋１」の数字が出るようにしておいたのですが、そこはどのようになっているでしょうか？

補足

お手数をおかけしております。
印刷した結果、右上は１０．２０．１２．２２　　右下に１１．２１．１１．２１となりました。

「部数」－「ページ数」でも十分対応できますのでご協力を願います。

回答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

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

回答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 さん　早速の返信ありがとうございます。

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

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

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

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