スキルアップ・問題解決なら、モーグにおまかせ！

一番手前に表示されている、アクティブウィンドウ内にあるブックで選択されているシートのみを印刷します。

Sub Sample()

    Dim mySheet As Worksheet

    For Each mySheet In ActiveWorkbook.Windows(1).SelectedSheets
        mySheet.PrintOut Copies:=1
    Next
    
End Sub