すべてのカテゴリ » インターネット・パソコン » ソフトウェア » 使い方・不具合

質問

終了

エクセルで印刷枚数を印刷していく事はできないでしょうか。
例えば1ページ分のデータを10枚印刷するとして、10枚に連番が印刷されるようないい方法はありませんか?データが大きくなるので枚数分データを用意して通し番号を入力しておくという方法は避けたいのです。よろしくお願いします。

  • 質問者:じゃん
  • 質問日時:2009-08-24 17:31:51
  • 0

① ツール→マクロ→新しいマクロの記録
  マクロ名を入力、又はデフォルト(Macro1)としてOKをクリック

② ツール→マクロ→記録終了
③ ツール→マクロ→マクロ
  ①で入力したマクロ名のマクロを選択し
  編集をクリック
  マクロ名がMacro1の場合の例、下記を参照

  Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2009/8/25 ユーザー名 : xxxx
'
                        ←●ここにマクロ記述
'
End Sub

④ ●に下記内容を貼り付け(セル H1が連番の例)

Range("H1").Select
ActiveCell.FormulaR1C1 = "1"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("H1").Select
ActiveCell.FormulaR1C1 = "2"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("H1").Select
ActiveCell.FormulaR1C1 = "3"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("H1").Select
ActiveCell.FormulaR1C1 = "4"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
           :
           :
           :
           :
Range("H1").Select
ActiveCell.FormulaR1C1 = "10"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

⑤ 閉じる(Bsial basic)
⑥ ツール→マクロ→マクロ
  ①で入力したマクロ名のマクロを選択し
  実行ボタンをクリック

  • 回答者:キヨトくん (質問から13時間後)
  • 0
この回答の満足度
  
参考になり、満足しました。回答ありがとうございました。
お礼コメント

とても参考になりました。マクロはあまり使ったこと無いのですがやってみたいと思います。

並び替え:

エクセルのページレイアウト→印刷タイトル→ページ設定→フッダー/ヘッダー
にページ数とかページ番号を挿入するというのがありますけど
それではないでしょうか?

  • 回答者:トルバトール38 (質問から55分後)
  • 0
この回答の満足度
  
回答ありがとうございました。
お礼コメント

すいません、わざわざ回答いただいたのですがページ番号からですと全部同じ番号が印刷されてしまうので駄目なんです。

関連する質問・相談

Sooda!からのお知らせ

一覧を見る