エクセルのシート別印刷枚数指定（マクロ）

よろしくお願い致します。

先ほど下記に関してのマクロを質問し回答を得られたのですが、

>>１）シート１のA1セルを右クリックするとシート２を印刷。
>>２）シート１のB1セルを右クリックするとシート３を印刷。

上記に対しての回答
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A1:B1")) Is Nothing Then Exit Sub
If Target.Address = "$A$1" Then
Sheets("Sheet2").PrintOut
ElseIf Target.Address = "$B$1" Then
Sheets("Sheet3").PrintOut
End If
Cancel = True
End Sub

こちらを更に改良し、それぞれのシート印刷時に2部印刷が行われるようにする。
こちらのやりかたを教えて下さい。
よろしくお願い致します。

No.1 ベストアンサー 回答者： kybo 回答日時： 2012/07/23 19:46

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

If Intersect(Target, Range("A1:B1")) Is Nothing Then Exit Sub
If Target.Address = "$A$1" Then
Sheets("Sheet2").PrintOut Copies:=2
ElseIf Target.Address = "$B$1" Then
Sheets("Sheet3").PrintOut Copies:=2
End If
Cancel = True
End Sub

で、いいです。

この回答へのお礼

出来ました！有難うございました！！

お礼日時：2012/07/23 20:03