複数のシートをマクロで印刷

質問

印刷したい複数のシートをアクティブ状態にして以下のマクロを実行すると、余計に印刷されてしまいます。

Sub Test()
　Dim ws As Worksheet
　For Each ws In ActiveWindow.SelectedSheets
　　ActiveWindow.SelectedSheets.PrintOut _
　　Copies:=1, Collate:=True
　Next ws
End Sub

例えば、Sheet1とSheet2を選択して実行すると、Sheet1とSheet2が二部ずつ印刷されます。また、Sheet1とSheet2とSheet3を選択して実行すると、それぞれが三部ずつ印刷されます。
それぞれを一部ずつ印刷するためには、マクロをどう直せばいいでしょうか？

回答No.1

zap35 · ベストアンサー

それはそうなりますね。SelectedSheets（複数枚）を選択したシートの数だけForで回していますから。
以下でどうですか

Sub Test()
　Dim ws As Worksheet
　For Each ws In ActiveWindow.SelectedSheets
　　ws.PrintOut _
　　Copies:=1, Collate:=True
　Next ws
End Sub

お礼

回答ありがとうございます。
うまくいきました。

回答No.2

taocat

こんにちは。

-------------------------------------
Sub TEST()

　ActiveWindow.SelectedSheets.PrintOut _
　　　Copies:=1, Collate:=True

End Sub
--------------------------------------

この１行だけでプリントできるはずですが。。(^^;

以上です。

お礼

回答ありがとうございます。
うまくいきました。