[[20031228232834]]　『自動ナンバリングはできますか？』（tani）　ページの最後に飛ぶ

『自動ナンバリングはできますか？』（tani）

いつも色々的確な回答有難うございます。

今回の無知な質問ですが、例えば100枚印刷する時に自動的に１～１００までを

ナンバリングする方法というのは無いのかどうか教えて頂きたいのですが・・・。

そりゃ無理だろうと言われてしまってもかまいません。

excelの機能にはねぇよっておっしゃってもかまいません。

この疑問に終止符をうちたいんです。

宜しくお願いします。

 どこに表示したいのでしょうか？
 ページ番号の機能ならありますけど？

  (INA)

 こちら事務局です。同じ内容のようですので、統合しました。
 （kazu）

『私にもお教えください』（ｍｏ－ｏｍ）

自動ナンバリングについて

私も知りたいです、どうぞお願いします。
例えば、同じパンフレット（複数頁でできているもの）などを１００部プリントアウトするとして、頁のほかに、最終頁だけでもよいし、頁のところでもよいし、１／１００～１００／１００ということなのですけれど。
初心者の私にはわかりません。
マクロ使用でしたら、わかりやすくお教えください。

 全然詳しくはないのですが、今試してみました。
 [ファイル] - [ページ設定] - [ヘッダー/フッダー] で
 『 1 / ?  』などと指定　又は　編集する事ではないのですか？
 間違ってましたら、ごめんなさい。　　　（jun53）

 ごめんなさい
 >同じパンフレット（複数頁でできているもの）などを１００部
 でしたね。
 プリンターのプロパティからの設定になるのでしょうけど
 私のプリンターでは設定するところがないみたいです。
 勘違い、ゴメンナサイ。　　　（jun53）

jun53　さま、お答えくださってありがとうございます。
説明がまずくてすみません。

たぶん、2003/12/29(月)03:09 『自動ナンバリングはできますか？』（tani）さんの質問と同じと勝手に思っています。マクロを使うとできるのでは、と初心者は期待しています。

たぶん、2003/12/29(月)03:09 『自動ナンバリングはできますか？』（tani）さんの質問と同じと思うのですけれど。
・・・・例えば、製造番号のようなものですけれど、
表示する場所は、どこでも良いのですが、「頁」と同じ場所のほうが、便利な気がします。
（例えば、Ｐ１には、「１（部数が２０番目ならば２０）－Ｐ１／３」、Ｐ２には、「２（部数が２０番目ならば２０）－Ｐ２／３」、Ｐ３には、「３（部数が２０番目ならば２０）－Ｐ３／３」という具合です。）マクロとか使って、何部コピーを作る、そしてそれぞれにナンバリングする、というようなものとかはできるでしょうか？なんかできそうに思うけれど、やり方がさっぱりです。

できたらとても便利なんですけれど。よろしくお願いいたします。

よろしくお願いいたします。（ｍｏ－ｏｍ）

 全くの素人考えですから軽く聞き流して下さい。（私はマクロは作れません）

 印刷命令させる迄はエクセル上の操作ですから、
 何方かがマクロコードを書いてくれるかもしれません。
 実際にその範囲内でのコードは此処の過去ログにもたくさん有ると思います。

 しかし、「何部印刷させるか」はプリンタ側の命令ですから
 使用プリンタによって様々な操作方法があり、
 これだ　というコードはなかなか難しいのではないでしょうか。
 マクロが出来ないのに、多分変な事を書いてるかもしれませんが、
 その時はお許し下さい。

 もう少しお待ち頂ければ、VBAコードが載るかもしれませんね。
 この私の書き込みが間違っていましたら、訂正を宜しくお願い致します。　　　（jun53）

 マクロで可能です。
 プリンタ制御まで考えなくても良いと思います。
 手順はインプットボックスなりで印刷部数を指定
 セル、またはヘッダー／フッターへのナンバリング動作と印刷を部数分繰り返し
 一部ずつ設定を変えて印刷してやればよいのです。

 と、やり口はわかっているんですが、
 すいません、いかんせん手が離せず、コードを組んでる暇がないので、
 今はこの程度の書き込みが限界。
 他の方の登場を期待。 
 (KAMIYA)

 私もあまりVBAは得意ではないのですが、ただいま勉強中なので参考までに。です。
 Sub pint()
    Dim i As Integer, x As Variant
    x = Application.InputBox("印刷部数は？", "印刷部数の確認")
    If x = False Then Exit Sub
    For i = 1 To x
    ActiveSheet.PageSetup.LeftFooter = i & "-&P" & "/" & "&N"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Next i

 End Sub
(ケン）

 やはりマクロで出来るんですね。無知でしたスミマセン。

 あとは taniさんや ｍｏ－ｏｍさんが早くここを見てくれるといいですね。　　　（jun53）

 ケンさんのとほぼ一緒ですが・・・

 Sub TEST_20031229()
 '部数指定ナンバリング印刷 for ｍｏ－ｏｍ
    Dim i As Integer
    Dim MYVAR As Variant
    Do
        MYVAR = Application.InputBox("印刷する部数を入力してください" _
                    & Chr(13) & "（キャンセルボタンで中止）" _
                    , "印刷部数設定")
    Loop While IsNumeric(MYVAR) = False
    With ActiveSheet
        For i = 1 To MYVAR
            .PageSetup.CenterFooter = i & " - P&P/&N"
            .PrintOut _
                    Copies:=1, _
                    Collate:=True
        Next i
            .PageSetup.CenterFooter = ""
    End With

 End Sub
 (KAMIYA)

 ＞junさん
 謝らないでください・・・（汗）。
 junさんのあの書き込みのあとにいきなり「マクロで可能です。」は
 私が失礼でした。語調がきつかったと思います。
 こちらこそゴメンナサイ。
 今読んでみると、「マクロで可能です！」ぐらいに見えます。
 あわてて書き込むとろくなことがありません

 あららっ　今改めて読み返して初めて気がつきました。　新規に　ムカッ！！（笑）
 KAMIYAさん、お気遣いありがとうです。でも、サラーーっと流して下さいませ。
 ２，３日もたてば「此処は何処？？」状態の私ですから。

 ケンさん、KAMIYAさんのコードを私も暇をみてご相伴させて頂きます。　　　（jun53）

jun53、ケンさん、KAMIYAさん
みなさま、
どうもありがとうございます。
いま、気づきました、取り急ぎ、御礼を申し上げます。
ざあっと、見たところ、初心者のわたしには、かなり・・・・
でも、このあと、すぐに研究してみます。
遅ればせながら、よい１年となりますようにお祈り申し上げます。（ｍｏ－ｏｍ）

コメント返信：

[ 一覧(最新更新順) ]

[[20031228232834]] 『自動ナンバリングはできますか？』（tani） ページの最後に飛ぶ

[[20031228232834]]　『自動ナンバリングはできますか？』（tani）　ページの最後に飛ぶ