HOME > 即効テクニック > Excel VBA > シート操作関連のテクニック > 選択されているシートを印刷する

即効テクニック
シート操作関連のテクニック

選択されているシートを印刷する

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

Sub Sample()

    Dim mySheet As Worksheet

    For Each mySheet In ActiveWorkbook.Windows(1).SelectedSheets
        mySheet.PrintOut Copies:=1
    Next
    
End Sub
ビジネス統計スペシャリスト VBAエキスパート