セルで入力した値を部数印刷

マクロ / VBA

セルに入力した数字分だけを部数印刷してみます。
簡単なマクロですがやってみましょう。(初マクロカテゴリなので簡単なところから・・・)
10-1.jpg

Sub 印刷マクロ()
Dim maisuu As Integer
Dim sheet_name As String
Dim x As Integer
maisuu = Cells(1, 2)
sheet_name = Cells(2, 2)
For x = 1 To maisuu
Sheets(sheet_name).Select
ActiveWindow.SelectedSheets.PrintOut
Next
End Sub

もうそのまんまです。
セルB1【Cells(1,2)】の値を変数【maisuu】に代入させ、
セルB2【Cells(2,2)】の値を変数【sheet_name】に代入させています。
あとはFor文で部数分印刷を繰り返してやれば完了です。
おまけ
指定したセルだけを印刷したい場合は

Range("A1:F35").Select
Selection.PrintOut

A1からF35を範囲選択し、そこのみを印刷します。

Comment

  1. ひろ より:

    私のしようとしていることに非常に近く、大変参考になっております。ありがとうございます。
    「セルで入力した値を部数印刷」ですが、私はたくさんのシートを部数印刷したいと思っておりまして、sheet3の隣にsheet4,sheet5…とした時にマクロにはどの場所にどのように入力すれば部数印刷動作するのでしょうか?
    マクロ初心者でして大変申し訳ありませんがよろしくお願いいたします。

コメントをどうぞ

メールアドレスが公開されることはありません。

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください

  • ▼お小遣い稼ぎしませんか?▼ 日々の生活にhappyをプラスする|ハピタス

    クレジットカード・FX口座を作るだけで簡単に3万円GETです。一切支出はありません。

印刷 検索 COLUMN 置換 コピペ 無料 バーコード 図形 日付 フロー図 NA() XLSTART 偏差値 SUM セル選択 作業効率UP SUMIF DATE TODAY テンプレート 目標 グラフ 変換 HLOOKUP ワイルドカード COUNTIF VLOOKUP ユーザー定義関数 STDEV 条件付き書式
  • 関西在住の30代サラリーマン。事務職で毎日Excelと戯れています。
    システム導入なんて資金が無い!Excelでなんとかやりたい零細中小の社長さん・事務員さんの力になればと思います。
    詳しいプロフィール


PAGE TOP ↑