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

解決済

質問者：tmk3
質問日時：2007/01/29 22:33
回答数：3件

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

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (3件)

ベストアンサー優先
最新から表示
回答順に表示

No.1ベストアンサー

回答者： hosohoso13
回答日時：2007/01/29 22:51

エクセル自体にその機能は無いと思います。

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の閉じるボタンを押して閉じます。
８．エクセルの画面にあるコントロールツールボックスにある緑の三角定規を押して、押して押されていない状態にします。
９．コマンドボタンを押します。

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

- 0
- 件

通報する

この回答へのお礼

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

通報する

お礼日時：2007/01/30 23:59

No.3

回答者： zap35
回答日時：2007/01/30 11:59

以前回答した質問に「フッターに連番を入れたい」というものがありますので、そちらもご覧ください。

マクロで実現する方法です。
http://oshiete1.goo.ne.jp/qa2675415.html

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

- 1
- 件

通報する

この回答へのお礼

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

通報する

お礼日時：2007/01/30 23:54

No.2

回答者： te12889
回答日時：2007/01/29 23:26

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

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

・・・いかがでしょう。