EXCELでNo.を変えて印刷したい

質問

EXCEL2000でページ数は１枚なのですが、500枚同じものを印刷するときに右上にNo.0001～0500までのNo.つけて一枚づつ印刷するにはどうしたらいいのでしょうか？

回答No.1

hosohoso13 · ベストアンサー

エクセル自体にその機能は無いと思います。
VBAを使えば実現できます。
１．ワークシートにコマンドボタンを一つ配置します。
２．コマンドボタンを右クリック→プロパティ
３．プロパティウィンドウのPrintObjectをFalseにします。
４．コマンドボタンをダブルクリックします。→VBAの画面が開く
５．Private Sub CommandButton1_Click()とEnd Subの間に以下のように入力します。

Dim i As Integer
For i = 1 To 500
Range("A1").Cells = "No." & Format(i, "0000")
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
DoEvents
Next i

６．３行目のRange("A1").Cellsという部分のA1はページ番号を書きたいセルを指定して下さい。
　また、２行目のFor i = 1 To 500はNo.1～500までという意味なので好きな数字に置き換えて下さい。
７．間違いなく入力できたらVBAの閉じるボタンを押して閉じます。
８．エクセルの画面にあるコントロールツールボックスにある緑の三角定規を押して、押して押されていない状態にします。
９．コマンドボタンを押します。

注意：通常使うプリンタに設定されている物に連続して出力します。
途中で止められませんので、最初は試しで少しづつやって下さい。

お礼

詳しく説明いただいてありがとうございました。VBAの画面を開くのは初めてだったのですが、よくわかりました。
文字の大きさとかの指定はどうすのかなぁと思いながら印刷してみたら
指定したセルのフォントの大きさをそのまま印字してくれたのでイメージとおりの大きさで印刷することができました。

回答No.3

zap35

以前回答した質問に「フッターに連番を入れたい」というものがありますので、そちらもご覧ください。マクロで実現する方法です。
http://oshiete1.goo.ne.jp/qa2675415.html

印刷ボタンをクリックする代わりにマクロを実行すると印刷部数を問い合わせてきますので部数を入力してください。

お礼

ありがとうございました。参考にさせていただきます。

回答No.2

te12889

「輪転機」があれば・・・という話なので、参考にならないかもしれませんが・・・。

(1) 輪転機で500枚＋αを印刷する。（PCからページプリンタで印刷するよりランニングコストが安いはず。）
※紙詰まりのリスクを減らすため、インクが十分に乾くまで待つ。
(2) Excelで通し番号データを作る。
(3) Wordの差し込み印刷機能で(1)で印刷した紙に(2)で作った通し番号データをプリントアウトする。

・・・いかがでしょう。

お礼

回答ありがとうございます。輪転機はあるのですが旧型でパソコンからデータを入力することができないので、いただいた回答では解決することができません。しかし　新しくリプレイスされたときには
教えていただいた方法で試してみたいと思います。