エクセルの印刷について

質問

ＭＳ　ｏｆｆｉｃｅ９７を使用しています。

エクセルの印刷について　教えて下さい。
「シート２」表を作成しています。
「シート１」の「Ａ１」の入力されている数字が　１　であれば
「シート２」の表を１部印刷
「シート１」の「Ａ１」の入力されている数字が　２　であれば
「シート２」の表を２部印刷
と云うように、指定された通りに　印字出来る　マクロなどは
組めないのでしょうか？？？？
出来るのであれば　教えて下さい。

回答No.1

nishi6

こんな感じでしょうか。A1に入力された部数、Sheet2を印刷します。
『シート１、シート２』がシート名なら『Sheet1、Sheet2』を変えて下さい。(Excel97で確認)

標準モジュールに貼り付けます。

Sub Insatu()
　　Dim maisuu As Integer '枚数

　　maisuu = Worksheets("Sheet1").Range("A1")
　　If maisuu > 0 Then
　　　　Worksheets("Sheet2").PrintOut Copies:=maisuu
　　Else
　　　　MsgBox "枚数を指定して下さい。"
　　End If
End Sub