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

質問

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

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

>>１）シート１の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 · ベストアンサー

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

で、いいです。

お礼

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