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

Sub Sample()

    Dim mySheet As Worksheet

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