こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

印刷枚数を指定して印刷(印刷しないシートを含む場合)

マクロ(VBA)の超超初心者です。
エクセルのブックの全シート(13sheet)の印刷を1つのシートで管理するマクロを作りたいと思っています。

下記のマクロでチェックしたシートのみ印刷することは可能になりました。

Sub チェックしたシートの印刷()
Dim rng, shChk, PrtSh
For Each rng In Range("IDX")
If rng.Offset(0, -1) = 1 Then
shChk = shChk & rng.Value & ","
End If
Next
shChk = Left(shChk, Len(shChk) - 1)
PrtSh = Split(shChk, ",")
Sheets(PrtSh).Select
ActiveWindow.SelectedSheets.PrintOut
End Sub

そこにさらに印刷枚数を指定して印刷したいのですが、下記のマクロだと、0枚(印刷しないときの)の設定ができません、、、
0枚でもマクロを実行できるよにするにはどうしたらよいのでしょうか、、、
さらに、このマクロを簡単に書きたいのです。(ほぼ同じことの繰り返しなので、、、、)

Sheets("sheet1").PrintOut Copies:=Range("A1").Value
Sheets("sheet2").PrintOut Copies:=Range("A2").Value

    ・

Sheets("Sheet13").PrintOut Copies:=Range("A13").Value
End Sub

超超初心者があつかましい質問ですが、ご教授のほうよろしくおねがいいたします。

投稿日時 - 2008-10-01 01:00:56

QNo.4368987

すぐに回答ほしいです

質問者が選んだベストアンサー

こんなのは?
If Range("A1").Value > 0 Then Sheets("sheet1").PrintOut Copies:=Range("A1").Value
If Range("A2").Value > 0 Then Sheets("sheet2").PrintOut Copies:=Range("A2").Value

投稿日時 - 2008-10-01 18:39:44

ANo.2

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.1

(1)空のマクロを作ってはどうですか?

(2)同じ事をするには fo next ですね。

投稿日時 - 2008-10-01 12:43:39

あなたにオススメの質問